LABEL OOOOOOOOOLINE 00178079CC EX O/RJ COMMON* UFILE S*PATCHES/TSSMCP J F ILE LlNE*LlN£ PRINTJEND* 

file* patches/tssmcp Monday 03/20/73 0210/ pm 



/R 



S* PATCH 



FOR 

est 



TSSMCP CONTAINS 001 CARDS, 
s 16 LIT M "SYSTEM HANG* ?*"> 



00652400 



NUMBER 101 
BEGIN 

S» BY DDD 
St 7/16/74 

St TR .... 

SI THIS PATCH REFORMATS THE "SYSTEM HANG" MESSAGE. 

$1*1,4,**** ************ ********************** ************************************* 
$#PATCH NUMBER 102 FOR TSSMCP CONTAINS 010 CARD C nnnnnnn 

SVOIDT 14218081 

IF AITCAITC013.C8IX03 NEC 

BEGIN 

i»*i; 

WHILE AITCI3.E8J103 * 

FOR Jt»AITC03 STEP -1 
AIUJH3**AITU3> 
END ELSE H*AIT[03+i; 
AlT[OJi**P(DUP> + U 
AlTtIJ»»-(UlC8i3flllOjtM[C3CFTF])| 

St THTS CHANGE CORRECTS AN ERROR IN THE HANDLING OF C0B0L68 
SIQPEN STATEMENTS THAT OCCUR In THE INPUT OR OUTPUT PROCEDURE 
StOF A SORT. THE FILES WILL NOW BE LEFT OPEN AS THEY SHOULD. 



•I + U 
DO 



00000000 
14218071 
14218072 
14218074 
14218076 
14218078 
14216086 
14218082 
14218084 

14218086 
14218088 
90000000 
90000005 
90000010 



************************ 

38608920 



$t ****************************************************** 

S*PATCH NUMBER 103 FOR TSSMCP CONTAINS 1 CARDS. 

IF P OR I THEN 

S| THIS PATCH CORRECTS AN ERROR IN THE MCP PROCEDURE BACKCLOSE 
St THAT WOULD SOMETIMES CAUSE -PUD" FI LES NOT TO BE PUNCHED EVEN WITH 

Si THE OPTION AUTOPRKT SET. 

$1********************************* ********************************************* 

S#PATCH NUMBER 104 FOR TSSMCP CONTAINS 1 CARD 

SCHEDL00KCKTR,TYPE«7) % ES«6# XS*7 16651000 

S« FIXES THE SCHEDULE LINE *XS» KEYlN 



St FIXES THE SCHEDULE LINE "X»" KtTAiN 

St********************************************************************** 
S#PATCH NUMBER 105 FOR TSSMCP CONTAINS 2 CARDS 

» I- ttt . nCi-nnnUTV^IUIyU t C\ T U f Ni 



******** 



* THEN 
THEN 



39092165 
39092167 



IF (Tl * pSEUDQMIX[PlMIX3> 

IF PACKETPAGECT1 - 32] * 
$» BY KEN KOVACS 
St DATA 4/22/74 

St THIS PATCH CORRECTS AN INVALID INDEX IN CONTROL STATE. 

$1****************************************************************************** 
$#PATCH NUMBER 106 FOR TSSMCP CONTAINS 8 CARDS. 

S VoiDT 07118401 

IF PACKETCARD * 5 THEN 

IF PTYPE » 3 AND NOT CONTINUE AND NOT ADECK THEN 

if pkt8nly then 
$ set omit « notcpackets) 

if pseud0cumtn0-323 « then 

printtheccverccardloc,umtng»psource>j 
s pop omit 

SI BY KFK 

St DATE 02/80/75 

St MSA CENTRAL • DETROIT „ , „„ „ _.,_ 

St THIS PATCH WILL ALLOW PACKETS AND DECKS TO BE MIXED. ALSO IF THE 
SI SPO OPTION "PKTONLY" IS SET THEN ALL DECKS WILL BE USED AS IF THEY 



07118100 
07118500 
07139520 
20602515 

20609425 
20609430 

20609435 
20609440 



SI WERE PACKETS. TMAT IS THE USE OF PKTQNLY IS NOW CHANGED SO THAT 
SI IT NO LONGER CONTROLS THE LOADING OF DECKS BUT TO CONTROL OF THEIR 

SI USE. 
SI****************************************************************************** 

SCRATCH NUMBER 107 FOR TSSMCP CONTAINS 1 CARDS. 

HEADER[4]»*0&(PlQ0l)[2»38ll0:uSYSN0C<H46i2]j 20289 U5 

$1 BY KK 

SI DATE 8/7/74 

SI THIS PATCH WILL CORRiCT A CONDITION THAT COULD MARK THE PACKET 

SI PAGE AS BEING IN USE BY THE WRONG SYSTEM AFTER A HALT/LOAD. 

$1****************************************************************************** 

S# PATCH NUMBER 108 FOR TSSMCP CONTAINS 001 CARD, 

IF P2>0 THEN M0VE(l5#P2#T+4) ELSE M[T+4]*P2; 03120000 

S» BY ODD 
SI DATE 6/29/74 
Si THIS PATCH ALLOWS ERROR MESSAGES LONGER THAN 60 CHARACTERS 

st to be printed correctly on a remote terminal through cande. 
si********************************************************************** 

SjkPATCH NUMBER 109 FOR TSSMCP CONTAINS 1 CARD, 

IF LOGLINE * THEN LOGLINE * - UNITNQi 20602502 

SI BY OOD 
SI DATE 9/19/74 

SI THIS PATCH REPLACES A LINE QF CODE THAT WAS INADVERTENTLY 
$1 LEFT OUT IN THE XV, 3 RELEASE. WITHOUT THIS PATCH, ESPDISK 
Si IS NOT HANDLED CORRECTLY* INCORRECT LOG ENTRIES ARE MADE, 
St AND SYSTEM HALTS CAN OCCUR. 
$!****************************#***************************************** 

$#PAjCH NUMBER 110 FOR ySSMCP CONTAINS 1 CARDS. 

FlB[163,CCF3t8C;X 41204000 

$1 BY KK 

St OATE 10/22/74 

SI THIS PATCH CORRECTS THE TSSmCP"S HANDLING OF TAPE FILES 
St CLOSED WITH THE M CLQSE< <FlLElD» * )" SYNTAX, THE TSSMCP 
S| WOULD "FORGET" THAT THE LAST I/O DONE ON THIS FILE W A S A 
St REVERSE I/O BY ZEROING FIBC16], THUS WHEN THE FILE IS 
St OPENED AGAIN THE TSSMCP WOULD SPACECFORWARD ) OVER 
SI THE NEXT FILE' AND THE FILE THAT WAS JUST CLOSED WOULD BE 
St ACCESSED AGAIN. 

$1****************************************************************************** 
Sf PATCH NUMBER 111 FOR TSSMCP CONTAINS 1 CARDS. 

S VQIDT 06098201 06097600 

St BY KK 

St DATE 11/ 3/74 

St THIS PATCH WILL ALLOW A DISK SQUASH TO BO STOPPED ONLY AFTER IT 
$» HAS FINISHED MOVING A FILE. IF STOPPED SOONER THEN THE AVAILABLE 
St DISK TABLE COULD BE DAMMaGEd. 

SI ********************************************************************* ********* 
S# PATCH NUMBER 112 FOR TSSMCP CONTAINS 1 CARDS, 

RRRMECH ♦ NOT TWCCU) AND RRRMECH) X LET STATUS FIND IT 04383908 

SI BY KK 

St DATE 11/ 4/74 

$1 THIS PATCH CORRECTS A PROBLEM WITH UNITS GOING NOT READY 
St AND THEN NOT BEING PICKEO UP AS BEING READY WHEN THEY GO READY 

St****************************************************************************** 
S#PATCH NUMBER H3 FOR TSSMCP CONTAINS 5 CARDS 

Xt CLKCOJ l» 03067500 

S SET OMIT * NOT(NEWLOGGING) 03067600 



IF L0GST0PPEDCP1MIX) THEN PROCT IME CP1M IX 1 ELSE 03067700 

$ POP OMIT 03067800 

PR0CTIMECP1MIX] + CLOCK ♦ P(RTR); 03067900 

$1 BY KFK 
SI DATE 11/27/74 

$1 THIS PATCH CORRECTS A CONDITION THAT CAUSED THE LOG OFF MESSAGE TO 
$» CONTAIN ERRONEOUS CATE, AS A RESULT OF THE NEW MCP COMPILE TIME 
$1 OPTION "NEWLOGGING" THE VALUE OF PROCT IMECP1M IX ] IS CHANGED TO 
St INDICATE IF T*E PROGRAM SHOULD BE CHARGED FOR CPU TIME OR NOTt 
$1 THIS WAS NOT TAKES INTO CONSIDERATION WHEN C0MM2 PASSED THE VALUE 
SI TO BE USED AS "CLCCK M BY CAnDE, 

$1**********************************************************************4******* 

$#PATCH NUMBER 1U FOR TSSMCP CONTAINS 2 CARDS 

S VOID 37284156 

IF U < 16 THEN FPB[FN + 3J,C6»17J«.PRNTABLECU1,C31»17]; 3728541Q 
SJ BY KFK 
SI OATE 11/27/74 

$1 WHEN USING A MULTIFILE PBT THE SECOND AND FOLLOWING FILES WILL 
$1 SOMETIMES BE PRINTED SEVERAL TIMES. THIS WAS CAUSED BY A CONFLICT 
$j IN THE USE OF A FIELD IN THf FPB OF A PROGRAM* THE SAME FIELD 
St THAT IS USED TO HOLD THE NUMBER OF COPIES (FROM A FILE EQUATE) 
SJ is ALSO USED TO HELD THE PRN OF THE TAPE, THIS PROBLEM IS 
SJ FIXEO BY NOT MOVING THE PRN TO THE F8P UNTIL THE FILE IS CLOSED* 
SJ THEN WHEN THE FILE IS REOPENED A NEW SECTION OF THE FPB WILL BE 
SJ USED AND THIS WILL CONTAIN THE CORRECT VALUE FOR COPIES. 

SJ************ ****************************************************************** 
S#PATCH NUMBER 115 FOR TSSMCP CONTAINS 1 CARDS 

KIND*FIBC«]|C8I4]| IF FlBt 13 ] . 128 « 10 ]X0 THEN REEL*FlBC 13 3 , [28 » 10 ] } 39092000 
SJ BY KFK 
Si DATE 11/27/74 

$1 IF THt REEL IS GIVEN ON A F ILEC EQUAT I ON ) CONTROL CARD IT WILL 
Si NOT BE USED BY THE MCP WHEN IT LOOKS FOR A TAPE FILE AT FILE 
Si OPEN TIME. THIS IS BECAUSE THE REEL NUMBER IS MOVED FROM THE 
SI FIB. NOW THE REEL NUMBER IS ONLY MOVED FROM THE FIB IF IT IS 
SI NONZERO 

SI****************************************************************************** 
S#PATCH NUMBER 116 FOR TSSMCP CQBTAINS 1 CARDS 

S VOIDT 38024081 38024010 

SJ BY KFK 
$1 DATE 12/23/74 

SI IF A PROGRAM READS A 0lS« FILE THAT HAS A ROW SUE THAT IS LESS 
Si THAN THE PROGRAMS BUFFER SIZE* THE MCP WILL ONLY GET A CORE 
SI BUFFER THE SIZE OF THE OISK FlLE"S ROW, BUT ANY PROGRAM THAT 
SI USES THE BUFFER WITHOUT GOING THUR THE INTRINSICS WILL NOT 
SI KNOW THAT THE BUFFER SIZE H A S BEEN CHANGED; THEREFORE* AN INVALID 
St LINK MAY OCCURE IF ONE TRIES TO USE THE PART OF THE BUFFER THAT 

St IS NOT THERE, 

SI****************************************************************************** 

$#PATCH NUMBER 117 FOR TSSMCP CONTAINS 2 CARDS 

IF(N8tF]AND FOURMASK ) , CI I 35 1*0 THEN GO CLOSEIT; 06058630 
IF(NBCF + 5]AND NINEMASK ) , C 1 * 28 )fO THEN 06058640 

SI BY ODD 

SI DATE 12/87/74 

Si THIS PATCH CORRECTS A PROBLEM THAT WOULD CAUSE SOME FILES TO 

SI BE MARKED IN USE AFTER A HALT/LOAD QN A SHAREDISK SYSTEM, 

$ I ********************************************** ******************************** 

S*PATCH NUMBER 118 FOR TSSMCP CONTAINS 1 CARO 



IF COUNT SO THEN GO TO START* 37240050 
$»BY ODD 

$12/5/75 

$»50FTWARE FLASH NUMBER 68 

StlF TWO UBMAIN/DISKS ARE BOTH WAITING FOR THE SAME TAPE TO BECOME 

$|READY, ONE COPY Will BE ASSIGNED THE CORRECT TAPE AND THE OTHER 

SICOPY OF IIBMAIN WRL BE ASSIGNED TO MTA. 

$1********************************************************************* 

$#PATCH NUMBER 119 FOR TSSMCP CONTAINS 34 CARDS, 

REAL BVD#UBIKSZ>SPB; 27990410 

BCLI«CMCCTl«SPACEC41)3 3441C8t38f 10 3J 27*93900 

IF HDRTYPE NEQ 3 27994200 

THEN FOR NTllslS STEP 1 UNTIL NT2 DO 8CL CNT 1»53 l*H[NT 13 279V421Q 

ELSE FOR NTllo20 STEP 1 UNTIL NT2+5 DC 27994220 

BCLLNT1-103 t*H[NTl3; 27994230 

UBLKSZl*NT2; 27995310 

IF (NT4I*HC2],C5»3] ■ 2) THEN % OECIMAL (4-BIT) 27995600 

BClC03l*(SP8l»NT2 DIV 30 + (NT2 MOD 30 NEQ 0>)& % SEGMTS/BIQCK 27996306 

NT1EU34M4J; % WORDS/RECORD 27996505 

IF HDRTYPE GEO 2 THEN % FIGURE OUT EOF USING B6700 FORMULA 27996510 

BEGIN 27996515 

STREAMCB«*0 I Mi«HC14))J 27996520 

BEGIN SI»«LOC W; DI«* IOC BJ DI»*DI+4; SKIP 4 DB; 27996521 

20(IF SB THEN OSl-SET ELSE DS:»RESET; SKIP 1 SB); 27996530 

END; 27996535 

BVDI-P; % BITS CF VALID DATA IN LAST SEGMT 27996540 

IF HC23.C8I13 27996545 

THEN IF (NT2f«HC23,C9»33)»2 27996556 

THEN BEGIN NTl**12; NT4«*3; END 27996555 

ELSE IF NT2«4 27996569 

THEN BEGIN NT1«*6; NT4»«7j END 27996565 

ELSE BEGIN NT1**8; NT4l*5; END 27996570 

ELSE BEGIN NTUM; NT4l*47; END; 27996575 

NT2*»C(HC143, t2C«283 MOD SPB)XNTlx30) 27996580 

-KCBVD + NT4) DIV (4fl DIV NT1)); 27996585 

NT1«*IF NT2 LSS UBLKSZ THeN NT2 ELSE UBLKSZ; 27996590 

NT2«sNTl + (Htl43,C20«283 DlV SPB )xNT3x(NT4 J »H[3 3 , t 32 » 163 ); 27996595 

END; 27996600 

8CLC73»«IF HDRTYPE GEO 2 THEN (NT2+NT4-1) pjv NT4 - 1 27996605 

ELSE HC43; 27996610 

SVOloT 27996806 

Ht*[MCSPACE(42)j3«30t8«38ll0 3; 28070000 

HI*H&41C8»38» 103; 28274200 

JlTSSMCP* 4208 

$1 B6700 TAPES WITH NEW HEADERS 

StTHIS CHANGE ALLOWS THE B5700 LIBRARY MAINTENANCE TO LOAD FILES 
SiFrom TAPES WHICH HAVE BEEN CREATED ON A B6700 WITH NEW HEADER 
StFORMATS OF TYPE 2 AND 3. 
$IC PRI 4208 ) 

»#PATCH NUMBER l2l FOR TSSMCP CONTAINS 11 CARDS. 

SVOIDT 20566800 

OPTNIwCN; PROGC2|3l«o; 20566817 

DH*LOC A; SH»LOC HJ SKIP I DB; DSt«SET; 27996675 

* SET OMIT ■ NOT B6500L0AD 28*75605 

IF B6500 AND (NOT DEST IN • C 1 » 1 3 ) THEN 28475610 

BEGIN STREAM(TMPI*TMP!«SPACEU0)); 28475620 

DS»*32LIT M #B6700 TAPE TO TAPE NOT ALLOWED**; 28475630 



SPOUTCTMP); 28475640 

ABORT; 28475650 

END; 28475666 

S POP OMIT 28475665 

TSSMCP* 4211** 

LIBRARY MAINT. CORRECTIONS 
THIS CHANGE PERFORMS THE FOLLOWING! 

A, CORRECTS MISHANDLING OF ESPDISK SEGMENTS DURING ABORT* 

B, MAKES HEADERS CREATED FROM COPYING B67Q0 TAPE FILES "NEW 
TYPE HEADERS AND 

C, DISALLOWS TRANSFERS FROM B6700 SOURCE TAPES DiRECT TO TAPE 
BECAUSE OF POSSIBLE BaO SEGMENTS PER ROW INFORMATION IN THE 
B6700 HEADER, ATTEMPTS AT SUCH TRANSFERS WILL CAUSE ABORTION 
WITH THE FOLLOWING MESSAGE I 
"#B6700 TAPE TO TAPE NOT ALLOWED", 

WARNING! IN THE »COPY« CONTROL CARD* THE MAXIMUM NUMBER OF FILES PER 
OUTPUT UNIT MAY BE CONFUSED WITH THE <MFID> OF A FILE IF 
THAT <MFID> IS A NUMBER' I.E« THE <MFlD> OF THE FIRST FILE 
FOLLOWING THE WORD "COPY" MAY NOT BE A NUMBER. 
( PRI 42U ) 
#PATCH NUMBER 122 FOR TSSMCP CONTAINS 1 CARDS, 

CNT! SI*»SI*li B!*SI* IF SC« M " THEN GO TO CNT* TALLY I «0* 08291125 

I BY KFK 

« DATE 2/28/75 

I MSA CENTRAL - DETROIT 

« THIS PATCH WILL ALLOW FOR BETTER SCANNING OF THE PB KEYIN, 

1 IT IS NOW OK TO HAVE SPACES AFTER A "*" OR "*", 

t ********************************************* ********************************* 

#PATCH NUMBER 123 FOR TSSMCP CONTAINS 27 CARDS, 

STREAM(AI»T0HLD*BI««T0HLD,C42J6]''l*C!«»T0HLD»C42i6]^0* 20571700 

D!*[CMMC27]3); 20571702 

BEGIN 20571710 

si!«loc a; skip sb; 20571720 

IF SB THEN 20571730 

BEGIN 20571740 

SKIP 39 SB; 20571750 

IF SB THEN DSl*8 LIT"0FAST " 20571760 

ELSE 20571778 

BEGIN 20571780 

SKIP SB; 20571782 

IF SB THEN DS*»8 LIT H 0SL0W n 20571790 

ELSE 2057180C 

BEGIN 20571810 

C(SII*L0C B; 20571820 

DSl»6 LlT"OEU # "J DSi*2 DEO 20571830 

JUMP OUT TO l)i 20571840 

DSI«8 LIT W 00ISK "; 20571842 

L» END 20571850 

END 20571860 

END 20571870 

ELSE 20571880 

BEGIN 2057189C 

SKIP 5 SB; 20571900 

DS!*LIT"0 W ; DSta7 CHR; 20571910 

END; 20571920 

END; 20571930 

$! BY KFK 



J DATE 3/18/75 

I MSA CENTRAL - DETRCIT 

t THIS PATCH WILL PLACE THE OUTPUT UNIT NAME OF A LIBRARY COPY 

J IN WORD 27 OF THE SHEET SO THAT WHEN A TS IS DONE THIS NAME WILL 

I BE LISTED ON THE OUTPUT MESSAGE. 

I ****************************************************************************** 

#PATCH NUMBER 124 FOR TSSMCP CONTAINS 2 CARDS. 

IF KlND«F THEN FPaCFNUM*3J«-C*P<0Up))tT2tl5»15l83 38228510 
&0C6I39I9]; 38228526 

St BY KFK 
$1 5/7/75 

SI MSA CENTRAL * DETROIT 

$l WHEN USING A MULTI-FILE PbT THE SECOND AND FOLLOWING FILES WILL 

St SOMETIMES BE PRINTED SEVERAL TIMES. THIS WAS CAUSED BY A CONFLICT 

SI IN THE USE OF A FIELD IN TH E FPB OF A PROGRAM. THE SAME FIELD 

St THAT IS USED TO HCLD THE NUMBER QF COPIES (FROM A FIlE EQUATE) 

S« IS ALSO USED TO HOLD THE PRn OF THE TAPE, 

SI ****************************************************************************** 

S#PATCH NUMBER 126 FOR TSSMCP CONTAINS 1 CARD, 

PROCVAL» B 0; 20602860 

St BY KFK 
St DATE 04/05/75 

CENTRAL - DETROIT 




S#PATCH NUMBER 127 FOR TSSMCP CONTAINS 3 CARDS. 

IF (TIsSCAN) * ENDFI THEN 20608740 

GO TO PACK2* 20608760 

S VOIDT 20608800 

St BY KFK 

$1 DATE 04/08/75 

St MSA CENTRAL • DETROIT 

$t this patch will correct the way control ca«o handles packet 

St ERRORS, WITHOUT THIS PATCH jHE PACKET WILL ONLY BE FLUSHED 

St TO THE NEXT END OR WAIT CARD NOT TO JUST THE END CARD. 

$ I ******************************************* *********************************** 

S#PATCH NUMBER 128 FOR TSSMCP CONTAINS 3 CARDS. 

IF OU GEO THEN * WE HAVE AN OUTPUT UNIT 28304590 

IF IU GEO THEN % WE HAVE AN INPUT UNIT 28304700 

IF OU GEO THEN % WE HAVE AN OUTPUT UNIT 28306500 

BY KFK 

DATE 04/10/75 
MSA CENTRAL • DETROIT 

THIS PATCH WILL CORRECT AN ERROR IN THE NEW LIBMAIN/DISK PROGRAM. 
IF THERE WAS A "NULL LIBRARY TRANSFER" THEN IF THE INPUT OR OUTPUT 
UNIT IS DISK, WORD ONE OF MEMORY WOULD BE OVERWRITTEN BY A ZERO AS 
THE MCP TRIED TO CLOSE THE UNIT. ONE OF THE MANY PROBLEMS CAUSED 
BY THIS SITUTATI0N WAS THAT NO USER CODES WOULO BE ACCEPTEO BY 
CONTROLCARD BECAUSE THE MCP"S USERCODEC STORED IN WORD ONE) IS ZERO* 
NO ERROR MESSAGE WaS GIVEN TO INDICATE THIS CONDITION AND THE SYSTEM 
CONTINUED TO RUN BUT ALL USERCQDES WOULD BE ZERO, 
****************************************************************************** 
S#PATCH NUMBER 129 FOR TSSmCP CONTAINS 6 CARDS, 



SHEATC243l»MCPJ 07262100 

5HEAT[24Jl»McP; 08276365 

HEAD£Rt2 3laHEADERC5]**MCP; 20289113 

SIt«CARDJ DSl*9 WDS; 20289248 

M[BUF*87JI*MCP; 20289252 

SHEAT[243«"MCP; 22069212 

t BY KFK 

I DATE 04/12/75 

I MSA CENTRAL ■ DETROIT 

I THIS PATCH WILL CAUSE PRnPBT/DISK AND AUTQ-LOCNTRL 
J TO BE EXECUTED WITH THE McP"S USERcQOE. THIS INFORMATION 
I IS PLACED INTO THE LOG FILE. ALSO WITH THIS PATCH 
I PACKET PAGES WILL BE GIVEN THE MCP M S USER CODE NOT 
« THE USER CODE "PACKET". 

I********************************************************* ********************* 
#PATCH NUMBER 131 FOR TSSmCP CONTAINS 2 CARDS, 

SERSt IF(T1*SCAN)*EQUAL THEN 60 INCSC; 20605700 

lFCTt«SCAN)fPERIO THEN GO INCSCJ 20605702 

BY KFK 

DATE 04/10/75 

MSA CENTRAL - DETROIT 

THIS PATCH WILL GIVE A CONTROL CARD ERROR IF 

EATHER THE EQUAL SIGN OR USER CODE IS MISSING ON A 

USER CONTROL CARD. 
****************************************************************************** 

•patch number 132 for tssmcp contains 1 card, 

IF FASZ GTR THEN LIBRARYHELPC5 > ELSE IU t *QU l*C FPflPTR 1*0 )-l J 28246208 
BY KFK 
DATE 04/10/75 

msa central - detroit 

this patch will correct a condition in llbmaln/di$k that 
would cause a library tape to be created with no library 
files on it. this tape resulted on a null library transfer, 
also core space for the buffers is not obtained unless there are 
some files to be copied. 

****************************************************************************** 

patch number 133 for tssmcp contains 1 card, 

DSI*8LIT"lxOx4000 n ; DS t *8LlT"0PACKET"; 07418700 
BY KFK 

DATE 04/12/75 
MSA CENTRAL - DETROIT 

WITH SOME SYSTEMS THE FIRST I/O DONE TO A PRINTER FOR 
THE PACKET PAGE WILL CAUSE THE PRINTER TO HANG UP FOR 
EXTENDEO PERIOD OF TIME. THIS WAS CAUSED BY DOING AN 
INVALID PRINTER 8PERATI0N. THAT IS NO PRINTING AND NO 
PAPER MOVEMENT, 

THIS I/O RESULTED WHEN THE MCP CHANGED THE I/O 
DESCRIPTOR FOR THE ABORTEO LINE SO THAT THIS LINE WOULD 
NOT BE PRINTED, 

NOW A SINGLE SPACE IS GENERATED, 

THE MCP WOULD RECOVER FROM THIS CONDITION 
AFTER ABOUT 20 SECONDS, 
****************************************************************************** 

fPATCH NUMBER 134 FOR TSSmCP CONTAINS 1 CARD, 

ELSE IF u*18 THEN PC DlRECTORYSEARCHC -MF IO#FID# 1 3 )#DEL) I 28446300 

BY SR 
DATE 04/03/75 



S| THIS PATCH CAUSES HEADER SPACE FOR DUPLICATE DISK FILES TO BE 

Si FORGOTTEN, PREVIOUSLY* IF THE LIBRARY MAINTENANCE TASK INVOLVED 

$1 MANY DUPLICATIONS* THE HEADER SPACE OF EACH DUPLICATE FILE WAS 

*« LEFT IN CORE EVENTUALLY RESULTING IN A "NO-MEM" CONDITION ON 

$1 MIX ZERO, 

SI****************************************************************************** 
$#PATCH NUMBER 135 FOR TSSmCP CONTAINS I CARD, 

M0VE(10»B#Tl+2); 41323150 
SI BY KFK 
SI DATE Oft/22/75 

SI THIS PATCH CORRECTS A CONDITION THAT WOULD CAUSE aN INVALID 
SI ADDRESS ON A HALT LOAD IF MEMORY MOD ONE IS OFF LINE, 

$1***** ****#***************#*****#****#**************************************#** 
S#PATCH NUMBER 136 FOR TSSmCP CONTAINS 25 CARDS, 

LABEL PE»TE#PA; 18701010 

SWITCH St«PA#PE'TEMT#US,0'TD»PR#IQT#TMR#AD'WD; 18701100 

Cll IF UftiMft) GEQ (-5) AND Ift LEQ 6 THEN 18710100 

BEGIN GO TO SC 14+53; 18710206 

PA» 18710246 

S SET OMIT » NQTC*ACKETS) 18710242 

IF CII.PSEUDOMIXCPIMIXJ) GEQ 32 THEN 18710244 

I4I-PACKETACTCI-323; 18710246 

S POP OMIT 18710248 

GO TO INITIATE; 18710249 

PE» 18710250 

S SET OMIT * NOT(PACKETS) 18710252 

IF (H«PSEUD0MIXCP1MIX3) GEO 32 THEN 18710254 

BEGIN 18710256 

I4I.P&CKETERRCI-32]; 18710258 

PACKETERRCI-321UTRUE; 18710266 

END; 187J0262 

* POP OMIT 18710264 

GO TB INITIATE; 18710266 

TE» 18710268 

S SET OMjT » NOT(PACKETS) 18710270 

IF CIUPSEUD0MIX[P1MIX]) GEQ 32 THEN 18710272 

l4l*PACKETERRCI-323; 18710274 

* POP OMIT 18710276 

GO TO INITIATE; 18710278 

BY KFK 

DATE 04/22/75 

MSA CENTRAL - DETROIT 

THIS PATCH ADOS THREE NEW TIME FUNCTIONS! 

1) TlMEC-3), WILL RETURN THE CURRENT STATUS OF THE PACKETERR BIT 

2) TlME(-4)* THIS FUNCTION WILL SET THE PACkETERR BIT 

3) tlmec-5), will return the current value of packetacti 

these three functions were added to give a program some control 
over the packet, now a program can "kill" a packet by a time 

FUNCTION RATHER THAN BY oS-ING ITSELF WITH A RUN TIME ERRORCdIV 
BY ZERO* ETC)* AlSO A PROGRAM CAN "SEE" IF A SISTER PROGRAM 
HAS RUN INTO TROUBLE, ANO A PROGRAM CAN TELL HOW MANY JOBS ARE 
RUNNING FROM THE PACKET AT THIS TIMEt 

TIMEC-4) WILL RETURN THE VALUE OF PACKETERR BEFORE IT SETS IT, 

EXAMPLESI (ALGOL) 

IF A LSS THEN % WE HAVE A PROBLEM 



BEGIN 
BlfTIMEC-4); 

go to exit; 
end; 



X LETS KILL THIS RU 

X KILL PACKET 

X EXIT PROGRAM 
X 



N 



AND IN A PROGRAM RUN FROM THE SAME PACKET AT 
IF BOOLEANCTIMEC-3)) THEN GO TO EXIT; X 



IF THE F 
SETS THE 
AND ALSO 

i ********* 

#patch num 

IF 

IF 



$1 BY KFK 

$1 DATE 04/ 
$» MSA CENT 
$1 THIS 

$« IS A ZIP 

$ I ********* 

sjupatch num 



$ VOIDT 127 
$ VQIDT 127 



IRST PROGR 
PACKETERR 
GO TO EOJ 
********** 
BER 1 
ZIPMIX NE 
CTlsPSEUD 
PACKETERR 

23/75 

RAL • OETR 

PATCH WILL 

ERROR IN 

********** 

BER 14 

BEGIN T 

I 

E 

27501 

59501 

IF 

ELSE 



AM FINDS A PROBLEM AND WANT 
BIT THEN THE SECOND PRQGRA 
» 

*************************** 
38 FOR TSSMCP CONTAINS 3 CA 
C THEN 

CMIXCZIPMiX]) GEQ 32 THEN 
tT-32]»»TRUE; 



CIT 

SET THE PACKETERR BIT IF T 
THE PACKET. 

*************************** 
C FOR TSSMCP CONTAINS 22 CA 
♦CA INX 9540000000000000)41 
F SEPARATE THEN T«.T4<LUN*22 
LSE T*TtCLUN*22)C28U7in; 



THE SAME TIME 

ERROR IN OTHER PROGRAM, 

S TO STOP THIS RUN IT 
M WILL "SEE" THIS 

********************* 
ROS. 



*********** 

20608112 
20608114 
20608116 



KIND«1 THEN MCALPHA' 
(IF SEPARATE THEN 1 



IF 



23»P(DU 
ELSE *2 



HERE 

********************* 

RDS, 

7te 13611031 

)C32«47m 



P#LOD) 4 
Q)E27I42I6J 



M[ALPHA3»(*PCDU 

IF TYPE<20 THEN 

MtALPHA3*(*P 

IF NOT SE 

end; 

IF NOT SEPARATE 

M[ALPHA],[20I13 

IF FIBC14],CFFJ 

IF SEPARATE THE 

ELS 

IF NOT SEPARATE 

BY KFK 

DATE 5/7/75 

MSA CENTRAL * DETR 

THIS PATCH CHAN 

IS USED TO CONTROL 

THAT IS IF SEPARAT 

AFTER THE BEGlNlNG 

SET THE OPERATION 

PAGE FOR THE LABEL 

THIS WAS D" 



NOT SEPARATE THEN 
IF (TYPE<20) THEN 

HEADERC73]*P(DUP»L0DHCe20H27l42l6]; 
P))4(P60000)CCTF]; 



(DUP)U(IF SEPARATE THEN I 
PARATE THEN MCALPHA 3*C *P(DU 



ELSE 02OH27I42J6]; 
P)H1C27»42»63; 



THEN MCALPHA3*P(0UP»L0D)41t27l42l6 3; 

♦ II 

*FIBU43.[CF3 THEN 

N P(WAITIO(« I 4000100000#0#U) 

E P(WAITIQ(P4002000000*0*U) 
THEN P(WAITI0C?4000100000# 



"DEL) 
'DEL); 
0»U)#OEL)l 



*********** 

02267240 
0228724S 

02287258 
12726509 

12728508 
36280500 
38280608 

38280708 
38281600 
38281700 
38281800 
38590000 
38590100 
38^90200 
38592100 
38594000 
38594100 
38594200 
38594300 
38741000 
3874U00 
36742100 



ONE T 
#PATCH NUMBER 141 FO 



OIT 

GES THE USE OF THE SPO OPTI 

THE PRINTER SPACEING AROUN 
E IS RESET THEN ONLY A DOUB 

LABEL AND BEFORE THE ENDlN 
OF THE PRINTER IS AS IT WAS 

RECORD)t 
HELP WITH THE ENERGY CRUNCH AND PER CUBE REQUEST, 
R TSSMCP CONTAINS 452 CARDS. 



ON "SEPARATE'S IT NQI 
<D THE LABLE PAGE. 
ILE SPACE IS DONE 
jG LABEL. IF IT IS 
BEFOREC A FULL 



00000000 



LSI 



$ 

%% 
%* 
X* 
X* 
X* 
X* 
X* 
X* 
X* 
X* 
X* 
X* 
X* 
X* 
X* 
X* 

X* 
X* 

X* 

X* 

X* 
X* 

X* 
X* 
X* 
X* 
X* 
X* 
X* 
X* 

X* 
X* 

X* 
X* 
X* 

X* 
X* 
X* 
X* 
X* 

X* 
X* 

X* 

X* 

X* 
X* 
X* 
X* 
X* 
X* 
X* 
X* 
X* 



IF SC * " MM THEN IF SC t LEFTaRROW THEN 

BEGIN SI »* SI + i; GO TC IS; E ND* 
IF SC » LEFTARRQW THEN GO TO EXIT; 



VQIDT 08135001 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



printoirectory 



PURPOSE! THIS PROCEDURE HANDLES THE PD, EX# I?, LC AND LS 
MESSAGES, ALL MESSAGES ARE FORMS Qf THE PD MESSAGE 
EXCEPT FOR CERTAIN DIFFERENCES. THE PD MESSAGE WILL 
LIST THE NAMES OF THE DESIRED FILES AS WELL AS 
CERTAIN PIECES QF INFORMATION IF REQUESTED, 

SYNTAX* THE FORMAT OF ALL THE KEYlN MESSAGES WITH THE 
EXCEPTION OF THE LF MESSAGE IS AS FOLLOWS! 

<MESSAGE> <FILE SPeCIFIER> <OPT ion-l ist> 

<MESSaGE> II* P0 / EX / LC / LS 

<FILE SPECiFlER> H* <FiLENAME> / <FiL£NaME> "/" 
<FILENAME> 

<0PTI0N"LIST> II* <EMPTY> / <QPTION> / <OPTlON> > 
<0PTI0N-LIST> 

<0PTI0N> !!■ RECS / LAST / DATE / SAVE / SIZE / 
CREATOR / SECURITY / ALL 

<FIlENA»E> ila [FROM 1 TO 7 CHARACTERS OPTIONALLY 
ENCLOSED IN QUOTES) / * 

THE SYNTAX FOR THE LF MESSAGE IS! 

LF <USERID> <0PTI0N»LIST> 

SEMANTICS! THE EX* LF, LC/ AND LS MESSAGES ARE JUST 
MODIFIED FORMS QF THE PD MESSAGEt THE EX MESSAGE IS 
THE SAME AS A PD EXCEPT THAT ONLY THE EXPIRED FILES 
ARE LISTED, THE LF IS THE SAME AS A PD*/* EXCEPT 
THAT ONLY THE FILES BELONGING TO THE SPECIFIED USER 
ARE LISTED. THE LC MESSAGE IS THE SAME AS A "PD 
<FILE SPECiFiER> CREATOR", THE LS MESSAGE IS THE 
SAME AS "PD <FlLE SPEClFlER> SECURITY, CREATqR«. 

the options specify what additional information 
is to be listed besides the default information. if 
an unrecognizable wqro is encountered in the option 
list* it is ignored. the available options are! 

recs • number of records in the file* (special logic 
is incorporated to the list the correct number 
for backup files), 



02615100 
02615208 

02615303 
08095000 

XXXX08095050 
****08095100 
*X08095150 
*X08G95200 

♦X08095256 
**08095300 
*X08095350 
*X08095«00 
*X0809505e 
*X080V5500 
♦X08095550 
*X08095600 
*X08095650 
**0809570Q 
♦X08095750 
*X08095600 
*X08095850 
*X08095900 

*X08095950 
*X08096000 

*X08096050 
*X08096100 
*X08096150 

*xoe0962oe 

*X08096250 
♦X08096300 
♦X0809635C 
♦X08096400 
*X08096450 
*X08Q96500 
*X08096550 
*X08096600 
*X08096650 
*X08096706 
*X08096759 
*X08096800 
*XO8O96850 
**08096900 
*X08096950 
♦X08097000 
*X08097050 
*X08097100 
*X08097150 
*X08097200 
*X08097250 
*X0809730C 

**08097350 
+X06097400 

♦XO8O97450 
*X08097500 

**08097550 
♦X08097600 

*X08097659 



I 

I 

i 

i 



X* 

%* 

X* 

X* 
X* 
X* 

X* 
X* 
X* 
X* 
X* 
X* 

X* 

X* 

X* 
X* 
X** 
XXX 

PRO 
V 
R 

BEG 



LAST - LAST ACCESS DATE, 

DATE - CREATION DATE* 

SAVE * SAVE FACTOR. 

SIZE - SIZE OF THE FILE IN SEGMENTS, 

CREATOR - PRIVILEGED USERCQDE ASSOCAITEO WITH FILE. 

(FOR BACKUP FILES THE LABEL OF THE PRINT FILE 

AND THE NAME OF THE PROGRAM CREATING THE BACKUP 
IS ALSO LISTED). 



SECURITY • ACCESS PRIVILEGES OF THE FILE* 
LOCKED* UNLOCKED* PUBLIC* PRIVATE* FREE. 



I.E 



. * 



************************************************************* 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
cedure printdlrectorycbuff); 
alue buff; 
eal buff; 

IN 



INTEGER 

I* 
J* 
code; 



REAL 

MFID* X 

FID* X 

C* x 

D* X 

E* X 

N* X 

T* X 

INFO* X 
LABELREC, 

USERID* X 

x; x 



NORMALLY 
JUNK, 
« 



CONTAINS OPTION NUMBER, 



1 
2 
3 

4 



PD. 
EX. 
LC, 
LF. 
LS, 



•»«»»» 

!« . 



MFID OF DESIRED FILE OR "1 IF 

FID OF DESIREO FiLE OR »1 IF »_ , 

ADDRESS OF DISK HEADER, 

MFID OF LAST FILE FOUND BY SEEKNAM, 

FID OF LAST FILE FOUND BY SEEKNAM. 

WORK VARIABLE USeO BY SEEKNAM TO SAVE 

N8RMALLY USED TO SAVE 0E5T, INDEX. 

BIT MASK FOR OPTIONS SELECTED, 

X ADDRESS OF LABEL RECORO FOR PBD C IF 

USERID IF LF, 

JUNK, 



INFO, 



LC ) 



ARRAY 

HDRC*3# X DESCRIPTOR TO DISK HEADER, 

XLSTC*];X SOME DAY WE MAY ALLOW EXCEPTION LIST. 



BOOLEAN 

pbdtog* x true if selected 
foundafile; x true if we 



FILE IS A PBD, 

LISTED OUT AT LEAST ONE FILE, 



label ex it* dropout* dummy* opt ions; 
define numopts * 7*) 
define pd « (code * 0)#* 

EX » (CODE * 1)#* 



*X08097700 
*X08097750 
*XO8O978O0 
*X08097850 
*X08Q97900 
*X08097956 
*XQ8098000 
*X08098050 
*X0809810fl 
*X08098150 
*X0809820C 

*XQ8Q9825Q 
*X08098300 
*X08098358 

n08Q98406 
*X08098450 
*******X0e098500 
XXXXXXXX08098550 
08096606 
06098656 
08098700 
08098750 
08098800 
08098850 
08098900 
08098950 
08099000 
08099050 
08099100 
08099150 
08099200 
08099250 
06099300 
0809935C 
08099400 
08099450 
08099500 
08099550 
08099600 
08099650 
08099700 

08099750 
08099800 
08099850 
08099900 
06099950 
08100000 
08100050 

oeiooioo 

08100150 
08100200 
08100250 

08100300 
08100350 
08100500 
08100556 
08100600 



LC » (CODE * 2)## 08100650 

LF ■ (CODE ■ 3)*' 08100700 

LS ■ (CODE * 4)#; 08100750 

DEFINE 08100800 

PRIMARYUSER ■■ HDRC23#* % PRIV, USER CODE. 08100850 

SAVEFACTOR ■ HDRC33.C2H03#> X SAVE FACTOR. 08100900 

LASTACCESSDATE * HDRC33,Cl2«183#» X LAST ACCESS DATEt 08100950 

CREATIONDATE * HDRt 3 3 » C 30 » 18 3## X CREATION DATE. 08101000 

GUAROFILEMFIO s HDRC53#* X MeIq OF GUARD FIlE. 08101050 

GUAROFILEFIO m HDRC63#* X FID OF GUARD FI(.E, 08101100 

EOFPOINTER « HDR[73## X EOF POINTER, 08101158 

SEGSPERROW * HDRC83#, X SEG, PER ROW, 08101200 

NOOFROWS « HDRC9],C43I5]#' % NO. OF ROWS DECLARED, 08101250 

HEADERADDRESS « HDr»C8F3#; % CORE ADDRESS OF HEADER, 08101300 

%******************** SUBROUTINES **************************08lQl 356 

SUBROUTINE GETREADY; 08101400 

% ... — — ..,. ..-- — •„ 08101450 

BEGIN 08101500 

COOE »* BUFF, [916]; 08101550 

BUFF l» (TI»BUFF),U5U5] • \i 08101600 

INFO I* t (LC OR LF OR L$)C42«47»l3 t LSC43!47li3; 08101650 

END OF GETREADY; 08101700 

X 08101758 

subroutine getfilespecifier; osioi80o 

X — 08101850 

BEGIN 08101900 

nameid(mfid#T); x get mfid cor usercode if m lf") oeioi95o 

IF LF THEN USERID I* MFIol X FIRST THING IS USERlD FOR LF. 08102000 

IF MFID * "*• " QR If THEN 08102050 

MFID I* " U 08102100 

NAMEID(FID*T); 08102150 

IF FID * "/ » THEN X GET FID 08102200 

BEGIN 08102250 

NAMEID(FID#T)J 08102300 

NAMEIDCN*T); X GET NEXT ITEM, 08102350 

END 08102400 

ELSE X NO FID SPECIFIED IMPLIES FID OF "■" 08102450 

BEGIN 08102500 

N I* FIDJ 08102550 

FID %9 -i; 08102600 

ENOJ 08102650 

IF FID,C6»6] m LEFTARRQW QR LF THEN X NO FID SPECIFIED 08102700 

FID »* - i; 08102750 

END OF GETFILESPECIFIER; 08102800 

X 08102856 

SUBROUTINE PROCESSOPTIONLIST; 08102900 

% ---------- -— 08102950 

BEGIN 08103000 

WHILE N t "«• " DO X ACCUMULATE OPTIONS 08103050 

BEGIN 08103100 

FOR I I* -1 STEP 1 UNTIL (NUMQPTS •» 2) DO 08103158 

DUMMY I I IF P(,OPTIOnS#I#+# L OD) * N THEN X MATCHES AN OPTION WORD 08103200 

BEGIN 08103250 

INFO »« INFO OR TWOCI+1); X SET BIT CORRESPONDING TO OPT08103300 

GO TO DROPOUT; 08103350 

END 08103400 

ELSE X CHECK FOR "ALL" 08103450 



DROPOUTI 



IF N * "ALL " THEN X SET ALL OPTION WORD BITS. 
INFO I* NOT OJ 

NAMEID(N#T)J X GET NEXT OPTION WORD. 



IF N m ' 

end; 
go to exit; 



M THEN NAMEIDCN#T)J X SKIP OVER COMMA, 



OPTIONS III "RECS % X OPTION CINFQ.U7U 

M L*ST % X OPTION 1 (INFQ.C46U 

"DATE % X OPTION 2 (INFO, [4511 

"SIZE «, X OPTION 3 (INFQ,E44ll 

"SECURITY X OPTION 4 CINFQ 9 C43ll 

"CREATOR'S X OPTION 5 (INFO, [4211 

"SAVE M ; X OPTION 6 (INFO.Ulll 

EXITI 

END OF PRQCESSQPTIONLISTJ 

SUBROUTINE GETSET; 



BEGIN 

IF EX OR INFO X THEN X WE WILL NEED THE HQR, 
HDR Is IOQUE * SPACEUO) (CTCi; 

end of getsetj 
boolean subroutine wegotafile; 

BEGIN 

SEEKNAM(MFID,FID#C*D#E#N,XLST); x find a file, 
WEGOTAFILE l« C * Of % C IS ADDRESS OF DISK HEADER, 

END OF WEGOTAFILE; 

BOOLEAN SUBROUTINE WEWANTTHISFILE' 



"> 



BEGIN 

PBDTOG l« ((D EOV "PBD "> ■■ NOT OR (D EQV "PUD 

» NOT 0); 
IF HEADERADDRESS * THEN * WE NEED THE HEADER, 
DISKWAIT(»HEACERAD0RESS>30*C); X READ HEADER, 
IF LF THEN X CHECK T@ SEE IF WE WANT THIS FILEt 

WEWANTTHISFILE !■ PRIMARYUSER ■ USERID 
ELSE 

IF EX THEN 
BEGIN 

STREAM(AI«CALCULATEPURGE(-SAVEFACTOR)#X|«tX]); 

BEGIN 

si i* loc a; ds »■ a oct; 
end; 
wewantthisfile i* x > last accessdate; x true if file 

END 
ELSE 

wewantthisfile l» true; 
end of wewantthisfile; 

subroutine putinfilename; 

BEGIN 



08 
06 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
06 
08 
08 
08 
06 
08 
06 
08 
08 
08 
08 
08 
06 
08 
08 
08 
08 
08 
EXPIRE008 
08 
08 
08 
08 
08 
08 
06 
08 



103500 
103550 
103600 
103650 
103700 
103750 
103800 
103850 
103900 
103950 
104000 
104050 
104100 
104150 
104200 
104250 
104300 

104350 
104400 
104450 
104500 
104550 
104600 
104650 
104700 
104750 
104800 
104850 
104900 
104950 
105000 
105050 
105100 
105150 
105200 
105250 
105300 
105350 
105406 
105450 
105500 
105550 
105600 
105650 
105700 
105750 
105800 
105850 
105900 
105950 
106000 
106050 
106100 
106150 
106200 
106250 
106300 



STREAM(AJ»0 I Ct E> BUFF); % SET UP FILE NAME. 08106350 

BEGIN 08106406 

SI !» LOC D; 08106450 

OS Is LIT " M ; 08106500 

2 ( si i» si ♦ i; os i* 7 chr; ds i* lit "/")j O8IO6550 

DI la DI - lj 08106600 

OS I* 2 LIT ° "J % NEED 2 SPACES TO ALLOW FOR ARROW, 08106650 

A la DU 08106700 

END; 08106756 

T l« p; X SAVE OFF DEST, INDEX, 08106800 

END OF PUTINFILEKAME; 08106850 

X 08106900 

subroutine dorecs; O8IO6950 

% .......... ...... 08107000 

BEGIN 08107050 

STREAMUlslF PBOTOG THEN EOFPOlNTERxS ELSE EQFPQlNTER+1 IT); 08107108 

08107X50 

BEGIN 08107200 

DS la 9 LIT "RECORDS! "J 08107250 

SI la LOC A; 08107300 

OS l« 8 DEC; X CONVERT NUMBER OF RECORDS TO DEC, 08107350 

A la ol; X SAVE OFF Dl BEFORE ZERO SUPPRESSlNGt 08107400 

DI I* DI * 8; 08107458 

DS la 7 FILL; 08107500 

END; 08107558 

T la p; % SAVE DESTINATION ADDRESS, 08107600 

END OF OORECS; 08107656 

X 08107700 

SUBROUTINE DODATEORLAST; 08107756 

j! ---------- ............ 08107800 

BEGIN 08107850 

STREAM(Xla[X3); 0810795G 

BEGIN 08108000 

SI la x; 08108050 

DS is 8 DEC; X CONVERT DATE TO DECIMAL, 08108100 

END; 08108150 

GIMEDATE(CX].CCF],»X); X CONVERT JULIAN DATE TO 6 DIGITS, 08108200 

STREAMCAIa(Iai) » X» T); 08108250 

BEGIN 08108300 

A ( DS l« 10 LIT M ACCESSEDI "; JUMP OUT TO LI); 08108350 

DS la 9 LIT "CREATEDl "J 08108400 

Lit 08108450 

SI la LOC X; 08108500 

SI la SI + 2\ 08108550 

3 C DS l« 2 CHR; DS la LIT "•"); 08108600 

DI l« DI - 1J X ERASE THE EXTRA SLASH, 08108650 

A la Dl; X SAVE DEST, INDEX, 08108708 

END; 08108750 

T l« P; X SAVE DESTINATION ADDRESS. 08108800 

END OF DODATEORLAST; 08108856 

X 06108900 

subroutine dosize; oeioe9so 

% .......... ...... 08109000 

BEGIN 08109050 

NT2 l» NOOFROWS; X NO, OF ROWS DECLARED, 08109100 

NT! la o; X NUMBER OF ROWS PROCESSED, 08109150 

FOR J l« 1 STEP 1 UNTIL NT2 DO X CHECK TO SEE IF ROW EXISTS, 08109200 



IF HDRCJ+9] * THEN NTi « a NT1 * II % BUMP UP COUNT, 08109250 

STREAMCAtaNTlxSEGSPERROW I T)i 06109300 

BEGIN OB109350 

DS la 10 LIT "SEGMENTSI n ) 08109400 

SI !« LOC A; 08109450 

DS la 8 DEO 08109500 

A la OH 08109550 

01 »» DI • 61 08109600 
DS |» 7 FILLi 08109650 

END/ 08109700 

T !■ P; % SAVE DESTINATION ADDRESS, 08109750 

END OF DOSIZE; 08109800 

X 08109850 

SUBROUTINE DOSECURITY; 08109900 

X - - 08109950 

BEGIN 08110000 

J la IF PRIMARYUSER • THEN X FREE FILE 08110050 

ELSE IF GUARDFILEMFIO a MARK THEN X UNLOCK OR PUBLIC 08110100 

IF GUARDFILEFID a MARK THEN I * UNLOCKED 08110158 

ELSE 2 X PUBLIC 08110200 

ELSE IF GUARDFILEMFIO < THEN 3 X PRIVATE 08110250 

ELSE 4; X LOCKED 08110300 

STREAMCJ I A»aGUARDFlLEMFlO# B»aGU ARDFlLEFlD* T)J 08110350 

BEGIN 08110400 

DS la 10 LIT "SECURITY* "J 08110450 

CI »» CI ♦ JJ 08110500 

GO TO FREE; 08110550 

GO TO UNLCKJ 08110600 

GO TO PUBLICO 08U0650 

GO TO PRIVATE; 08110709 

LOCK« DS la 6 LIT "LOCKED"; GO TO EXIT; 08110750 

PRlVATEtoS la 22 LIT "PRIVATE (SECURED WITH "J 08110800 

SI la LOC A; 08110850 

2 < SI la SI + i; DS |s 7 CHR; DS la LIT "/">; 08110900 
DI ta DI - i; 08110950 
DS la LIT ")"; 08111000 
GO TO EXIT; 08U105Q 

PUBLIC! DS la 6 LIT "PUBLIC"; GO TO EXIT; 08111100 

UNLOKI DS ta 8 LIT "UNLOCKED"; 60 TO EXIT; 08111150 

FREE» DS la 4 LIT "FREE*; 08111208 

EXIT! J la Di; 08111250 

END; 08111300 

T I* R; X SAVE DESTINATION ADDRESS, 08U1350 

END OF OOSECURITY; 08111408 

X 08111458 

SUBROUTINE DOCREATCR; 08111500 

X — — — — — — 08111558 

BEGIN 08111600 

SSET OMIT * PACKETS 08111650 

IF JlaCPBDTOG AND (E, [301183 * 1)) THEN X REEL 1 OF PBD 081U700 

SPQP OMIT 08U1750 

SSET OMIT a NOT(PACKETS) 08111800 

IF JlaCPBDTOG AND (E.C42I63 a 1)) THEN X REEL 1 OF PBD 08111858 

SPQP OMIT 08111900 

BEGIN 08111950 

IF LABELREC a THEN LABELREC la SPACEC30)/ 08112000 

DISKWAIT(-LABELREC*30#HDRC10U2); 08112050 



END; 08112100 

STREAMCJ I BJ» PRIMARYUSeR*0> C laPRlMARYUSER* 08112150 

DtaLABELREC IdX 12* T>> 08112206 

BEGIN 08112250 

DS la 9 LIT "CREATORI "; 08112306 

B ( OS >M LIT '♦NONE"; JUMP OUT TO L2 )i 08112350 

SI «* LOC C; 08112400 

SI la SI + l; 08112450 

DS la 7 CHR; 08112500 

L2* 08112550 

J ( DS I* 2 LIT " ("; 08112600 

SI la D; 08112656 

2 < SI I* SI + l; DS la 7 CHR; DS la LIT "/"); 08112700 

Dl l« DI - i; DS in 4 LIT " OF "J 08112756 

2 C Si U 51 * l; DS la 7 CHR; DS la LIT "/"); 08112806 

01 l« DI - U DS i> LIT ")" ); 08112850 

J la OH 08112906 

END; 06112950 

T l« PM SAVE DESTINATION ADDRESS. 08113009 

END OF DOCREATOR; 08113056 

08113100 

SUBROUTINE DOSAVEF ACTOR; 08113150 

- — 08113206 

BEGIN 08113250 

StREAMCA »» SAVEFACTOR * T>; 08113300 

BEGIN 08113350 

DS I* 6 LIT "SAVE* "; 08113406 

SI l« LOC A; 08113450 

DS |a 3 DEC; 08113500 

A la on 08113550 

DI I" DI - 3; 08113606 

DS la 2 FILL; 08113650 

END; 08113700 

T la P; X SAVE DESTINATION ADDRESS. 08113756 

END OF DOSAVEFACTOR; 08113800 

08113856 

SUBROUTINE DOOPTIONS; 08113900 

— 08113950 

BEGIN 06114000 

FOR I la STEP 1 UNTIL CNUMQPTS - 1 ) DO % SEE IF OPTION BIT SET. 08114050 

IF CTWQ(I) AND INFO) f TH£N XQPTION SELECTED. 08114100 

BEGIN 08114150 

CASE I OF 08114200 

BEGIN 08114210 

DORECS; X CASE - "RECS" 08U4256 

BEGIN X CASE 1 - "LAST" 08114296 

X la LASTACCESSOATE; 08114306 

OODATEORLAST; 08114310 

ENO OF CASE U 08114320 

BEGIN X CASE 2 • "DATE" 08114340 

X l» CREATIONDATE; 08114350 

OODATEORLAST; 08114360 

END OF CASE 2; 08114376 

DOSIZE; X CASE 3 " "SIZE" 08114400 

DOSECURITY; X CASE 4 * "SECURITY" 08114456 

DOCREATOR; % CASE 5 - "CREATOR" 08114500 

D0SAVEFACT8R; X CASE 6 * "SAVE" 08H4558 



END of cases; 

STREAMU I T); X PUT COMMA AFTER LAST OPTION, 
BEGIN 

DS l» 2 LIT », "J 

i *» di; 
end; 
t i* p; 

END OF LOOP TO PROCESS OPTIONS* 
END OF D00PTI0N8; 

SUBROUTINE MAKETHEMESSAGE; 

BEGIN 

if foundaflle then % we need a buffer. 

buff !■■ spacec30); 
putinfilename; 
dqqptions; 
stream(t); x put in the left arrow, 

BEGIN 

DI I* DI »2; 

DS 1* LIT LEFTARROW; 
ENO) 

end of makethemessage; 



SUBROUTINE COMPLAIN; 
% ---------- ........ 

BEGIN 

STREAM(BUFF); 

OS I* B LIT " NULL 
SPOUTCBUFF); 
END OF COMPLAIN; 
X 

subroutine forgeteverything; 

x .......... ................ 



*; x original input is at buff ♦ 1, 



begin 

if headeraddress i THEN FORGETSPACE(HEADERADDRESS) ; 
IF LABELREC * C THEN F0RGETSPACECLA8ELREC )h 
END OF FORGETEVERYTHING; 
X******************** START OF CODE ******************* 

getready; 
getfilespecifier; 
processoptionlist; 
getset; 

while wegotafile do 
if wewantthisfile then 

BEGIN 

makethemessage; 
spout(buff); 

FOUNDAFlLE I* TRUE; 

end; 
if not soundafile then complain; 
forgeteverything; 
end of printdirectcry; 

$t DATE 9/10/75 

$1 BY JTC - MSA CENTRAL 

SI THIS PATCH REWRITES THE PRInTDIRECTQRY PROCEDURE, MUCH NEEDLESS 

St COoE HAS BEEN ELIMINATED <THE PROCEDURE IS 30 WQRdS SMALLER) AND 



081 


14600 


0611 


14656 


081 


14700 


081 


14750 


081 


14800 


081. 


14850 


081 


14900 


081 


1495G 


0811 


15000 


081 


15050 


081. 


15100 


081 


15156 


081 


15200 


0811 


15256 


cei; 


15300 


081- 


15356 


081. 


L5400 


081" 


15450 


081 


15500 


081 


15550 


061 


15600 


081 


15650 


081 


15700 


081 


15750 


081 


15800 


081 


15850 


081 


15900 


oai: 


15956 


08i; 


16000 


081, 


16050 


061, 


16100 


081 


16150 


0813 


L6200 


081 


16250 


0811 


16300 


081 


16350 


oai; 


L6400 


0811 


L645C 


****08l: 


16500 


0811 


16556 


0611 


16600 


081 


16650 


081 


16700 


0811 


16756 


081. 


16800 


0811 


16850 


0811 


16900 


0811 


16950 


0811 


17000 


0811 


17050 


OBll 


17106 


0811 


17150 


08117208 


99990000 


99990100 


99990200 


99990300 



some new options are available, the syntax fq 
handled by this procedure c pd*ex,lf,lc and l 
slightly in that a slash is n qw required betw 
last names of a file (a space would suffice p 
multiple option words may be specified after 
In addition* pour new option words have been 
lists out the save-factor of the file* "great 

PRIVILEGED USERCODE ASSOCIATED WJTH THE FILE* 
LISTS OUT THE ACCESS RIGHTS OF THE FILE, I.E, 

PUBLIC, PRIVATE, OR FREE, AnD "ALL" LISTS OUT 
MATION AVAILABLE FROM EACH qF THE INDIVIDUAL 



H ALL MESSAGES 

5) HAS BEEN CHANGED 

EEN THE FIRST AND 

REVIOUSLY3 ANO 

ANY OF THE MESSAGES, 

ADDED, "SAVE" 

OR" LISTS OUT THE 
"SECURITY" 
LOCKED, UNLOCKED, 
ALL OF THE iNFQR- 

OPTIONS, 



Some examples of the messages that are possible follow, 
pd a/b recs,date#size 

LF SITE ALL 
LCPBD RECS 

CONSULT THE HEADING BLOCK QF THE PR tNTOIRECTORY PROCEDURE 
FOR ADDITIONAL INFORMATION. 
#PATCH NUMBER 142 FOR TSSMCP CONTAINS 1 CARD, 

REAL NEU; DEFINE U«UT#,U A*UT##N|;Ul*NEU+J#»N£U2*NEU+NEU# ; 
DATE 10/1/75 

by jtc • msa central 

this patch c0rrects a problem in sharedisk mcps 
which could cause invalid link errors, the global 
varaible avs was being used incorrectly in the 
procedure userdiskspecialcase* 
#patch number 1«3 for tssmcp contains 5 cards, 

LABEL PE,TE,PA,LL; 

SWITCH s i« ll*pa,pe#te,it*us*d,to,pr,iot,tmr,ad,wd; 

CI* IF CI4l«I4) * (-6) AND 14 S 6 THEN 
BEGIN GO TO 5CI4+6); 
LI 14 I* L06LINE,C40I83; GO TO 
I DATE 9/2S/75 

i by jtc - msa central, 

i this patch implements timec-6) 

i logical line number from which 

i is running, batch program will 

#patch number 144 for tssmcp contains 7 cards, 

rocedure formtimecw,t); value w,t; real w,t; forward; 

(s+2 + cmcbuf inx 2} , [ ii 5 ]*">" ) ) ib i 38 1 103 ; 
formtimeuntij'xclock + pcrtr)}; 

STREAM(Nl«S-i,CLl»Sx8*Y,AAI»BUF INX Z*BB I* NTl, 

BUFI*CBUF[R3]}j 
BEGIN OS l» 7 LIT " "; SI J* LOC BB; DS !■ 8 CHR; 

ds i« 9 lit " "; si i* aa; 

SI DATE 10/20/75 
SI BY JTC - MSA CENTRAL, 

SI THIS PATCH ADDS THE TIME OF DAY TQ EACH MESSAGE AS IT IS 
SI ENTERED INTO THE PACKET PAGE, 
$#PATCH NUMBER 145 FOR TSSMCP CONTAINS 7 CARDS 
LABEL IPCERRJ 

INIT,SL0W*C34*C35»C36»C37*TW,TW,C40#C41* IPCERR* 
IPCERR,lPCERR*IPCERR,IPCERR,IPCERR,TW,SLOw; 
IPCERRl TERMINATE (PIMIX)I 

TERMINALMESSAGE (96); 



initiate; 



WHICH RETURNS THE 
A PARTICULAR PROGRAM 
ALWAYS RETURN A ZERO, 



99990400 
99990500 
99990600 
99990700 
99990800 
9999090G 
99991008 
99991100 
99991200 

99991300 

99991400 

99991508 

99991600 

99991700 

99991800 

99991900 

99992000 

99992100 

99992208 

99992300 

00000000 

06351055 

99990000 

99990100 

99990200 

99990308 

99990400 

99990500 

00000000 

18701010 

1870H00 

18710100 

18710200 

18710238 

99990000 

99990100 

99990200 

99990300 

99990400 

00000001 

00480010 

02173296 

02173297 

02173300 

02173301 

02173305 

02173306 

99990000 

99990100 

99990200 

99990300 

19504100 
19508100 
19508200 
19575000 
19575100 



"BINVAUD* 
"20M., .,"* 



"8 IPC C"* 



W • « • » » 

St BY JTC - MSA CENTRAL* SOFTWARE FLASH 161 

$ I ****************** 4*********************************** ************** 

$#PATCH NUMBER 146 FOR TSSMCP CONTAINS 41 CARDS, 
LABEL EOF* CLEANUP; 
DEFINE H m HEADE8#; 
$ VOlDT 38477001 

BEGIN X COMPILE TO LIBRARY 

for ti »« is step i until 

SEGCCT13 I* SKELCT13; X 



22 DO X COPY PROC* I/O* 
STACK, COMMON* PRIO.* ETC. 



IF CT2 |« SKELtl33) t THEN % LAB. EQN. ENTRIES 
BEGIN 

SKELE133 »* 0; * SO TERMINATE WONT SEE ESPQISK STU 
CISKWAIT(SKEL,CCF]*30#T3>; % REWRITE SKEL. SHEET 
SEGOE153 l» H[73 + \l X ADDRESS OF 1ST ENTRY 
DO 

BEGIN X COPYING LABEL EON. INFO INTO CODE FILE 
IF DISK ADDRESS (M ID* F ID* FPBCFNUM + 3 3 » 

<Tlt*HC73»*HC73U)*H>0) * THEN % NO ROOM 
BEGIN 
DO 
BEGIN 
DISKWAITCSKEL«CCF3*30*T2); X GET SEG. 
FQRGETESP0ISKCT2H 

End 

UNTIL CT2 l« SKELC29J) m OJ 



•OISK 



>*"QVRFLOW"*MID*FIO# 



FILEMESSC 
R*D*C>; 
ENO 
ELSE 
BEGIN 

DISKWAITOSKEL|CCF3*30*T2); X GET SEG, 
FQRGETESPDISK(T2); 

IF (T2 !■ SKELC293) * THEN X MORE OF EM 

SKELC293 I* Tl ♦ \f X ADDR. IN CODE FILE 
DISKWAITCSKEL,CCF3*3Q*H*CHCT1 DIV HC83 
+103 ♦ Tl MOD HC83)); 
ENO 
END 

UNTIL T2 ■ O; 
END OF PROCESSING LABEL EGUATION INFO; 
SEGOC63 I* NABSC*P<OUP)); X NEW FORMAT SEG, ZERO 
H£43,C10U3 lm %} X MARK AS PROGt FILE 
DISKWAlT<SEGO,tCF3*3Q*HU03); X REWRITE SEG. ZERO 
END OF COMPILE TO LIBRARY PROCESSING; 
SI DATE 1/19/76 

£ 1 R V I T C * M *t A P F* hi T fi A I 

SI THIS PATCH CORRECTS AN UNLIKELY ERROR IN DISKCLOSE WHICH 
S| CAN CAUSE ESP DISK SEGMENTS TO BE LEFT IN USE IF A COMPILER 
$1 GETS OS-ED FOR DISK OVERFLOW. IN ADDITION* THE PATCH USES 
SI THIS OPPORTUNITY TO REWglTE THE EXCEPTIONALLY BAO LOGIC 
SI CONTAINED IN THIS ROUTINE, 
S#PATCH NUMBER 147 FOR TSSMCP CONTAINS 2 CARDS 

UPTIMEQUTCMIX)* 

DOWNTIMEOUTCMIX); 

si by jtc - msa central* software flash 162 



41445500 
41445600 

** 

00000000 
38363000 
38385700 
38446500 
38447000 
38447500 
38448000 
38448500 
38449000 

FF38449500 
38450000 
38450500 
38451000 
38451500 
38452000 
38452500 
38453000 
38453500 
36453600 
38453700 
38454000 
38454108 
38454500 
38455000 
38455500 
38456000 
38456500 
38457000 
38457500 
38458000 
38458500 
38459000 
38459500 
38460000 
38460500 
38461000 
38461506 
38462000 
38462500 
38463000 
38463500 
38464000 
99990000 
99990100 
99990200 
99990300 
99990400 
99990500 
99990606 

24035300 
24096800 



$ I ******************************************************************** 
$#PATCH NUMBER 148 FOR TSSMCP CONTAINS I CARD 
TEMP ♦ F $ K CCTFj; 
BY JTC - MSA CENTRAL* SOFTWARE FLASH 163 



** 



SI BY JTC - MSA CENTRAL* SOFTWARE FLASH 163 

SI SEE ALSO DREXEL U. PATCHES 601*662,748 

$1 ******************************************************************** 

S#PATCH NUMBER 149 FOR TSSMCP CONTAINS 7 CARD, 

DS la 8 RECJ DS fs 2 LIT * *"# 



18273Q55 



** 



DS I. 8 DEC; DS I* 2 LIT » *«* 
DI l« DI - 10; DS l» 7 FILL* 
SI I* e; DS t« 10 CHRJ 
BEGIN SI l«LCC a; DSI-e DEC* DSl-2 LIT 
DI«*OIMO; DSI-8 FILL; AlsOi; 

dh*t; sii»a; dsi«io chr; 

TWX0UT(T,10,C&HC*FHlC2UmJ#R6); 
DATE 2/11/76 
BY JTC - MSA CENTRAL 



THIS PATCH CAUSES AN EXTRA BLANK TO BE TYPED OUT AFTER THE SEQUENCE 
NUMBER IS SEQUENCE MODE. THIS IS CONVENIENT FOR LINING 
INPUT WITH PREVIOUSLY PRINTED OuTPuT SINCE THE LIST AND PRINT 
COMMANDS OF CANDE PR iNT AN EXTRA SPACE AFTER ThE SEQUENCE NUMBER, 
t ******************************************************************** 

#PATCH NUMBER 150 FOR TSSMCP CONTAINS 12 CARDS, 

STrEaM(LCFLGI*L0NGCArrIAGECSU,Vi»CV«»GETArEA(O))+1 
BEGIN 

OS l» 6 LIT "DELS</"; 
LCFLG (DS »» 3 LIT "<«); 
DS l« LIT LEFTARROW; 

end; 

STREAM(LCFLG»«L0nGCARRIAGECS1 jfVI«V*l); 
BEGIN 

3 LIT »$<*"> 

(DS »■ 3 LIT "<"); 

LIT LEFTARROW; 



DATE 2/11/76 
BY JTC - MSA 



DS I* 

LCFLG 
DS I" 

end; 



CENTRAL 



WITH 
USER 



THIS PATCH ADDS AN EXTRA DE L AY FQR TERmInA(.S 
AFTER THE CARRIAGE RETURN TYPED OUT WHEN THE 
LEFTARROW, THIS PREVENTS THg BEGINNING OF SEQUENCE 
FROM BEING LOST IN SEQUENCE MODE, 
#PATCH NUMBER 151 FOR TSSMcP CONTAINS 38 CARDS. 
,ITSALLBATCH - TQGLE.C16U]* 

ENB 
ELSE X ITS BELOW 
IF ITSALLBATCH 
BEGIN 

TANKSCLLJ iv NA85(T)J 
CLICK Iv CLOCK ♦ P(RTR) ♦ 

sleep(0#0); x wait for time 
go to start; x try again, 
end; 
fence Then % below the fence 
clock ♦ p(rtr) ♦ 1023 ♦ 1023; x 



LONG CARRIAGES 
TYRES A 
NUMBERS 



THE FENCE 
THEN X WE 



WILL WAIT AWHILE 



128; X 
OUT, 



2 SEC 



IF P(0,RDS) 
BEGIN CLICK 



< 

Iv 



END 



itan »■ tLUCK ♦ riRin; * IU*J * iv*3i X 34 SECt 

complexsleeP(Inputankct],inputn qr te«mseT(Pimix)); 

ELSE 



00000000 
03733500 
03734000 
03735000 
19559120 
19559140 
19559166 
19559200 
99990000 
99990100 
99990200 
99990300 
99990400 
99990500 
99990600 

**99999999 
00000000 

);03826100 
03826200 
03826300 
03626408 

0382650Q 
03826600 
03900000 

03900100 
03900200 

03900300 
03900400 

03900500 
99990000 
99990100 
99990200 
99990306 
99990406 
99990500 
99990600 
00000000 
00081785 
03147006 
03147100 
03147200 
03147306 

03147400 
03147500 

03147600 
03147706 
03147800 
03299700 
03299730 
03299750 
03299786 



IF CMEMCMIX,033 

IF T < 020000 

SUBROUTINE CLEARALLTA 

BEGIN CLEARTANKCLOGUI 

tanksui*logline. 
if working then 
if harrysta * i t 
cqmplexsieep 
clearinputank; 
tankokch »• oj 
end of clearalltanksj 
IF logl 
cl 

I i« t) 

*VOlDT 14367035 

BELOW «* (St2],C8 

IF FENCE, [32*16] 

IF J < 7 THEN X N 

♦(CHUNK 

I J«CHUN 

IF (U« 



«CCF] 2 FENCE OR ITSAU8ATCH THEN 
OR T > PiOOOOO THEN 

nks; 

NE*0); 
C40»83]»*(*PCDUP)H0CCTCJ; 

X MAKE SURE HARRY ISNT 
HEN X DIDDLING OUR LINE 
(NOT WORKING OR HARRYSTA t I)* 



INEit33t7j X AND PlMIX X CANDYINX THEN 
EARALLTANKSJ 

X RE-INITIALIZE FOR CORE SEARCH 

CLEARALLTANKSJ 

1103*5) OR itsallbatch; 

X FENCE OR FENCE < 8l?2 THEN FENCE !* 16384) 
EED TO FIND HIGHEST ON LINE MOD BElOW FENCE 
MAX»0> X IN CASE ITS ALL BATCH 

kmax+(chunkmax»0); 

MtA + m.C32»l6J) X FENCE AND T X THEN 

020000 AND T S $100000 THEN FENCE ** T* 
ATCH !■ FENCE * $60000; 



ITSALLB, 
DATE 2/11/76 

by jtc • msa central (patch received from steve kelley • lssg u,k.) 

this patch allows the fence to be moved to the top of memory, 
suppressing all swaping, all jobs entered are treated as batch 
job • regardless of run* execute or compile, 

cande programs using terminals may run with the fence at 32k* 
however* they will not be swapped and the jobs might be scheduled 
since all jobs are treated as batch, 



IT IS INTENDED THAT ONLY LIMITED TERMINAL USAGE 
IS AT THE TOP OF MEMORY, SINCE REMOTE JOBS WILL 
WAITING FOR TERMINAL INPUT OR WHEN STOPPED OR 
CONDITION SATISFIED, 



OCCURS IF THE FENCE 
TIE UP CORE WHEN 
WAITING FOR EXTERNAL 



THIS PATCH WILL GAUSE THE TSS MCP TO SIMULATE THE 



THIS rATWM WILL GAUSL THE TS5 MV»r TU S1MULAIL T«t 
BATCH* OR DC* MCP WHILE MAINTAINING THE TSS LOGGING 
FACILITIES, THIS PATCH WILL NOT CAUSE REENTRANCY TO 
rirriip - 

************************************** 



OCCUR, 
******************************* 

#PATCH NUMBER 152 FOR TSSMCP CONTAINS 5 CARDS. 



RRAY S 
VOIDT 


» 

1 
1 
» 
I 

» 


DATE 
BY J 


THIS 
PREV 
OCCU 



spacestacksize » 85#j 
spacestacksize * 1051; 
pacestackc*]; 

i !■ spacestacksize) t i* p ( , spacestack )i fix) x 

3/1/76 

TC - MSA CENTRAL 

PATCH INCREASES THE SPACE STACK SIZE FROM 80 TO 85 WORDS TO 
ENT A POSSIBLE STACK OVERFLOW IN THE SPACE STACK, THE OVERFLOW 
RRED WHEN OLAY CALLED DlSKSPACE AND DISKSPACE FORKED 



07500000 
09916000 
14351448 
14351445 
14351459 
14351455 
14351460 
14351465 
14351470 
14351475 
14351480 
14360516 

14360520 
14360530 
14367021 
14367022 
20163200 
44104000 
44109900 
44151058 
44163100 
44191020 
44191040 
44420000 
99990000 
99990100 

99990200 
99990300 

99990400 
99990500 
99990600 
99990700 
99990800 
99990900 
99991000 
99991100 
99991208 
9999130Q 
99991400 
99991500 
99991600 
99991700 
99991600 
99991906 
*99999999 
00000000 
00013870 
00013890 
00013918 
23399000 
44173100 
99990000 
99990108 
99990200 
99990300 
99990400 
99990500 



$1 GETMQREOLAY 

S» WHEN FORK W 

S« RUNNER entr 

SI AND IT WAS 

*i Involved ca 

$1 THAT OVERFL 

$ I ************ 

$#patch number 



STARTJ 



X 
X 
X 
X 
X 
X 
X 



X 
X 

X 



DISK FC 
ENT TO 
Y IN TH 
NECESSA 
LLlNG F 

OWED TH 
******* 

153 FO 
FIELD M 
LABEL S 
X »» 81 



RAP 
GET A 
E FOR 

RY to 

ORGET 

E STA 

***** 

R TSS 
AYBEW 
TART) 

04; 



ROGRAM RUNNING UNOE 
FIVE WORD AREA TO 

KQUE THERE WERE NO 
BREAK UP ONE OF TH 

AREA AND IT WAS THI 

CK, 

******************* 

MCP CONTAINS 43 CAR 
ORKEDON n C7I1J; 



R THE FENCEt OCCASIONALLY 
BUILD THE INDEPENDENT 
FIVE WORD AREAS AVAILABLE 
E LARGER AREASt THIS 
S CALL ON FORGETAREA 

************************* 
OS, 



x this is the code 

X GETSPACE THE FIR 

X OVERLAY MEMORY F 

X WE WANT TO BE RE 

X MEM. 



WE WILL PASS TO 
ST TIME, IT REQUESTS 
OR THE MCP AND THAT 
TURNED TO ON A NO 



SI 
$1 

$1 
$1 
SI 
SI 



IF NOT MtSJ.MAYBEWORKEDQN THEN X WAIT TILL OTHER GUY IS 

SLEEP([MCS33#0 4 TRUE CMAYBEwORKEDON] ); 
BEGIN 

z «* y. c8u0jj x size of procedure in words 
mcsj.maybewqrkeoqn in false* 

now we will attempt to get space for this mcp prqc 
if we fail we will wait for a secqnd ano th£n try 
again, this ensures that if w£ get ds-ed while 
sleeping waiting for memory w e will not leave the 
toggle locked up for this procedure, 

IF <Tl»GETSPACEU#65,X) + 2) m 2 THEN X NO MEM 

R F" C T Kl 

mcsj.maybeworkedon »« true; 
x.c46iu «• true* x oont put out message 
sle£pc[clqck3>n0t clock)! x wait a second 
go to start; 
eno; 

MtS3 I* <*P(DUP>> & T CCTC 3 & TRuE CMAYBEWORKEDON]; 
FIELDS CF SAVEF PARAMETER 



FIELD 

NEEDOLAY 



* 09139 



TYPENOMEMANDRETURN * 45101 
>JUSTRETURN ■ 46101 

,GETFRCMFRONT » 47101 

; 

STREAMCX1*(MESS*Q 



X THIS FIELD IS NON ZERO I 
X REQUESTOR WANTS OLAY SPA 
X IF SAVEF, C45I02] • 3 TH 
X GETSPACE WILL TYPE OK M 
X IF SUCESSFULL. 



MIX* SIZE* 



IF 



OR SAVEF, C45l2]»3), 
MESSI«MESSl»GETAREA(0)); 
IF SAVEF, JUSTRETURN THEN p(O'RTN); 
IF SAVCF, TYPENOMEMANDRETURN THEN P<Q#RTN); 
MESSXO OR SAVEF. [45123 n 3 THEN TELLSPo; 



DATE 3/1/76 

BY JTC - MSA CENTRAL 



THIS PATCH 
TRYING TO B 
FOR THE PRO 



WILL PREVENT A PROGRAM FROM BEING OS-ED WHILE 

RING IN AN MCP PROCEDURE, THIS USUALLY LEFT THE TOGGLE 

CEDURE LOCKED UP SO THAT THE PROCEDURE WAS P|RMANENTLY 



> 99990600 
99990700 

9999080G 
99990900 
99991000 
99991100 

**99999999 
00000000 
21015100 
21015200 
21015400 
21015508 
21015600 
21015700 
21015800 
21015900 

0021016000 
21017000 
21018100 
21018200 
21018300 
21018400 

, 21018500 
21016600 
21018700 
21018808 
21018900 

21019000 
21019108 
21019200 
21019300 
21019409 
21019500 
21019600 
21020000 
21024000 
24304108 
24304110 
24304120 
24304130 
F 2430414C 
CE24304150 
EN24304170 

EH24304188 
24304190 

24304200 
24305700 

24305750 
24315000 
24317008 
24401000 
99990000 
99990108 
99990200 
99990300 
99990400 
99990508 



si 
$i 
St 
$i 
si 
si 

SI 

Si 
SI 
SI 
SI 
St 
St 



PREVENTED FROM BEING BROUGHT INTO CORE, THIS CONQlTlON OCCURRED 
WHEN THE PROGRAM WAS SLEEPING WAITING FOR A NO MEM CONOITION TO 
CLEAR UP SO THAT THE PROCEDURE COULD Be BROUGHT IN AT THE SAME TIME 
THAT THE OPERATOR DS-ED THE PROGRAM, IF THE NO M£M CONDITION DID 
NOT CLEAR UP IN ABOUT 8 SECONDS* NSECOND WOULD FORCE 
THE STACK TO BE OS-ED* NOW* ESPBIT WILL HANDLE THE NO MEM 
CONDITION HIMSELF IN SUCH A WAY THAT NO TOGGLES WILL BE LOCKED 
SHOULD THE OPERATOR DS THE PROGRAM WHILE IT IS TRYING TO BRING IN 
THE PROCEDURE, 



IF A 
ABOVI 

-OK 



NO MEM- MES 
E CONDITIONS, 
MEM» MESSAGE. 
SI ****************** 



SAGE IS DISPLAYED BY ESPBIT UNDER THE 
THERE WILL NOT BE A CORRESPONDING 

************************************************** 



SfPATCH 

% 

X 

X 

SVOIDT 48038401 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 



NUMBER 154 FOR TSSMCP CONTAINS 30 CARDS. 



IF WE REACH THIS POINT THEN THIS JOB HAS USED 
UP ITS TIME SLICE (EITHER PROCESSOR OR I/O) OR 



THIS 
OESER 
PROGR 
SWAP 
IS RE 
THE P 
THE P 
A MAX 
AND S 
CHUNK 



JOB HAS BEEN DOING EXCESSIVE OVERLAY AND 
VES ANOTHER CHUNK OF MEMORY, IF THE 
AM HAS USED UP ITS TIME SLICE* WE WILL 
IT OUT IF THERE IS SOME OTHER PROGRAM THAT 
AD* TO RUN AND CAN USE THIS GUYS CHUNKS, IF 
ROGRAM HAS BEEN DOING EXCESSIVE OVERLAY AND 
ROGRAM HAS ROOM FOR EXPANSION AND DIDNT USE 
CORE CARO* WE WILL SWAP IT OUT 



WAPPINGIO WILL ARRANGE TO OBTAIN ANOTHER 



IF P(0,RDS) > FENCE THEN X SWAP JOB 



STEP 

THEN 



SI 

I 
I 
I 
I 



DATE 
BY JT 



3/12/76 
C • MSA 



BEGIN 

FOR NT2 I* SCCP1MIXJ 
IF ACTIVECNT2] > 1 
BEGIN 

SWAP(TIMEND#1); X 

GO TO return; 
end; 
if 0layctrcp1mix] < then 

IF DONTEXPANOBITSCPIMIX] 
BEGIN 

swaP(timend*d; x 
go to return; 
end; 

end; 



UNTIL LCCP1MIX] 
SOMEONE CAN USE 
CHUNK. 



DO 
THI 



EXCESSIVE OVERLAY, 
THEN X EXPANDABLE 



CENTRAL 



THIS PATCH PREVENTS A JOB FROM BEING SWAPPED OUT TO OBTAIN A NEW 

CHUNK WHEN THE JOB CANNOT BE EXPANOED, 
t ******************************************************************** 
•PATCH NUMBER 155 FOR TSSMCP CONTAINS 261 CARDS, 

BEGIN STREAM(AI*TYPEDSPACE(1Q*SP0UTMSGAREAV) I );X 

DEFINE 

TYPEDSP ACE (TYPED SPACE I #TYPEDSPACE2) * 

(GETSPACE(TYPEDSpACEl»TYPEDSPACE2,0)+2)# % 
#ARRAYDESC(ARRAYDESC1*ARRAYDESC2) * 



99990600 
99990700 
99990800 
99990900 
99991000 
99991100 
99991200 
99991308 
99991400 
99991500 
99991600 
99991706 
99991800 

**99999999 
00000000 
48038120 
48038136 
46038140 
48038149 
48038150 
48038160 
48038170 
48038180 
48038190 
48038206 
48038210 
48038220 
48038230 
48038240 
48038250 
48038260 
48036270 
48038280 

S 48038296 
48038300 

48038316 
48038326 
48038330 
48038340 
48038350 
48038360 
48038376 
48038386 
48038390 
48038400 
99990006 
99990100 
99990200 
99990300 
99990400 
**99999999 
00000000 
00005230 
00017005 
00017010 
00017015 
00017020 



; 

X** 
X* 
X* 
X* 

X* 
X** 
XXX 
OEF 



ccmcgetspace(arraydescl,arraydesc2,0)+23] & arraydesc1 csize3)* 
savearraydesccsavearraydescl#savearraydesc2) 
ccmcgetspacecsaveaRRaydescI'SaveaRRaydes 

& 



SAVEARRAYDESC1 



[SIZEJ)* 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

******************************************** 

MEMORY AREA TYPES STORED IN 3»6 FIELD OF F 
LINK OF ALL MEMORY AREAS 

******************************************** 



xxxxxxxxxxxxxxxxxxx 

INE 

UNKNOWNAREAV 
♦CODEAREAV 
>OATAAREAV 
MOBUFFERAREAV 
^ALGOLFIBAREAV 

,INQUIRYBUFFAREAV 

#COBQLFIBAREAV 

•TYPE7INTAREAV 

,DISKHEADERAREAV 

,MAINTBUFFAREAV 

»LBLEQNAREAV 

»SEGZEROAR£AV 

^STACKAREAV 

»TYPE1SINTAREAV 

,SCRATCHDIRAREAV 

,OPSETAREAV 

,DIRT0SAREAV 

,SPQUTMSGAREAV 

j-UVROWAREAV 

,JARROWAREAV 

»CIDRQWAREAV 

*INQINPUTAREAV 

MNTARRAYABEAV 

,RJEINPUTAREAV 

#DCOUEUEAREAV 

,DALOCROWAREAV 

$ SHEETAREAV 

#STAWORDAREAV 

,KEYINBUFFAREAV 

*FSAREAV 

#DC19QUEU£AREAV 

#AVTABLEAREAV 

,TRACETABLEAREAV 

#SEGDICTAREAV 

,STACKPRTAREAV 

,MCPTABLEAREAV 

^IRSTACKAREAV 

»FPBAREAV 

#CONTROLCAROAREAV 

#LABELAREAV 

»MDUMPAREAV 

•ESPDISKAREAV 

*LOGAREAV 



xxxxxxxxxxxxxxxxxxxxxxxxx 



Q* X 

1* x 
2# X 
3* X 

4* x 

5* X 

6* X 
7* X 

8# X 

9* X 

10* % 

11* x 

12# x 
13* X 

14* X 
15* X 
16* X 
IF* X 
18* X 
19* X 

20* X 

21* X 

28* X 

23* X 

24* X 

25* X 

26* X 

27* X DC MCP ONLY 

28* X 

29* X 

30* X DC MCP ONLY 

3i* X 

32* X DC MCP ONLY 

33* X 

34* X 

35* X 

36* X 

37* X 

36* X 

39* X 

46* X 

41* X 

42* X 



X0QQ1702S 

00017030 

00017035 

X00017040 

00017045 

XXXXXXXXXXXXXXXXXXXXXXXXX0001710Q 
************************£000l7llQ 

*X00017120 
IRST MEMORY *X00017130 

*X00017140 

*X00Q1715Q 
************************fcQQQ17l6Q 

XXXXXXXXXXXXXXXXXXXXXXXXX00017170 

00017180 
00017190 
00017200 
00017210 

00017226 

00017230 

00017240 

00017250 

00017260 

00017270 

00017286 

00017296 

00017300 

00017310 

0001732Q 

00017330 

00017340 

00017350 

00017360 

00017370 

00017380 

00017390 

00017400 

00017410 

00017420 

00017430 

00017440 

00017450 

00017460 

00017470 

00017480 

00017490 

00017506 

00017510 

00017520 

00017539 

00017540 

00017556 

00017560 

00017562 

00017564 

00017566 

00017568 

00017570 



,CANDEINPUTAREAV * 43* X TSS MCP ONLY 00017572 

,0B40BINPUTAREAV * 44# X TSS MCP ONLY 00017574 

,TYPE45 » 45# X 00017576 

,TYPE46 m 4ft# X 00017578 

,TYPE47 * 47# X 00017586 

,TYPE48 « 48# X 00017582 

; 00017600 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXOOO 17700 
X*************#*****************#******#*****************#***********#**000l77i6 

X* *X0001772fl 

X* MEMORYLINKS **00017730 

X* *X00017740 

X*************************#*******#********nr***#***********************X00017750 

XXXXXXXXXXXXXXXXXXXXX XXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXOOO 1776C 

X 00017768 

X FIELDS OF MEMORY LINK OF ALL AREAS 00017764 

X 00017766 

FIELD 00017770 

AREAAVAILF * OltOl X » FOR IN-USE AREA* » 1 FOR AVAIL, AREA 0001778© 

,AREASAVEF * 02|01 X ■ 1 FOR IN-USE SAVE AREA* * FOR OLAY AREA00017790 

»AREATYPEF a 03106 X TYPE OF AREA (SEE ABOVE? 00017806 

#AREAMUF * 09106 X MIX INDEX OF OWNER OF AREA 00017810 

,AREABACKLINKF * 18U5 X ADORESS OF PREVIOUS AREA 00017826 

,AREAFWDLINKF ■ 33115 X AODRESS OF NEXT AREA 00017830 

t 00017840 

$ VOIDT 00068001 00059000 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXOOQ60000 
X**********************#***********************************************X00060010 
X* *X00060020 

X* MISCELLANEOUS FIELD DEFINITIONS *X0QQ60038 
X* *X00060040 

X*****************************#****************************************X00060050 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX00060060 

00060070 
FIELD 00060080 

FF ■ 18115 X 00060096 

»CF * 33115 X 00060100 

#CTF ■ FF X 00060110 

,CTC « CF X 00060120 

>MSFF ■ 16101 X 00060130 

; 00060999 

X 00061000 

X FIELDS OF AIT ENTRY 00061010 

X 00061020 

FIELD 00061030 

FILEBIT * 01«01 X 00061040 

#0WNBIT ■ 02101 X 00061045 

^DIMENSIONS ■ 0BIC5 X 00061050 

»BLKCNTR ■ 08U0 X 00061060 

#MOM * 18 S 15 X 00061070 

I 00061999 

X 00062000 

X FIELDS OF DATA DESCRIPTOR 00062010 

X 00062020 

FIELD 00062030 

X FLAOBITF » 00100 X 00062040 

X DATABITF * 01101 X ALWAYS OFF FOR A DATA DESCRIPTOR 00062050 



PBIT 
»SIZE 



X 



jMOMAODRCSSF 
»ADORESSF 



X 
X 
X 



02101 X 
08110 X 
X 
18U5 X 
33115 X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 

X 



MISCELLANEOUS DEFINES 



ON IF DESCRIPTOR POINTS TO AREA OF CORE 
SIZE OF ARRAY ROW IF ARRAY OESC, 
FOR INDEXED DATA DESC, OR NAME DESC. 
ADDRESS OF MOTHER DESCRIPTOR. 
IF PBIT IS ON THEN THIS FIELD CONTAINS AN 
ACTUAL CORE ADDRESS, IF THE PBlT IS OFF THEN 
IF THE VALUE OF THIS FIELD IS GREATER THAN 
OR EQUAL TO 512 THEN THE FIELD CONTAINS A 
DALOC ADDRESS WHICH CAN BE USED TO LOCATE 
DATA IN THE OVERLAY DISK AREA ASSIGNED TO 
THE PROGRAM, IF THE VALUE OF THE FIELD IS 
THAN 512 THEN THIS FIELD CONTAINS A CODE 
INDICATING THE STATUS OF THE AREA, 



THE 
THE 




1 
2 



NEVER ACCESSED OVERLAY AREA, 

NEVER ACCESSED SAVE AREA, 

NEVER ACCESSED OVERLAY AREA WHICH 
WHICH IS ASSIGNED TO AUXMEM, 

INDICATES OVERLAY IS CURRENTLY IN 
PROCESS FOR THIS AREA 

INDICATES OLAY HAD IRRECOVERABLE 

ERROR WHEN OVERLAYING THIS AREA, 00062266 
THE NEXT ACCESS TO THE AREA WILL00062270 
CAUSE THE PROGRAM TO BE TERMI- 00062280 



00062060 
00062076 
00062060 
00062090 
00062100 
00062110 
00062126 
00062136 

00062146 
00062150 
LESS00062160 
00062170 
00062180 
00062190 
00062200 
00062210 
00062220 
00062238 
00062246 
00062250 



NATED, 



DEFINE 

CURBlKCNTR 
#AITN0X 
#FTF 
>FTC 
>DELTA 

; 



16 

6 

18U8J15 

33U8I15 

11 



X 
X 
X 
X 
X 



♦ u 



* VQIDT 



T I* GETSPACECS-1* SPQUTMSGAREAV+64* 0) 
MCMESSAGE»U.EAREATYPEFJ l« SP0UTM5GAREAV; 
A»«TYPE0SpACfC15,SP0UTMSGAREAV)J 

S J* IF MCTJ, AREATYPEF * COOEAREAV THEN 
MCT*1J,CCF3 ELSE OjX 
ELSE PCMCT-23,AREATYPEF#DUP) * TYPE7INTAREAV 
P(XCH) * TYPE13INTAREAV) QR L * OJ 

TP«*CM[TAI*TYPEDSPACEC513»MDUMPAREAV)JJ 

& 513CSI2E3 & 5C21U5I3JJ* 
LBL l« TYPEDSPACE(10#LABELAREAV);X 
INPUTANKCSTA3.[FF] t»Rl»CIF Tl GTR THEN Tl ELSE 

typed$pacec32#qbj06inputareav>}+2j 
lastsegc0],cff3 i* c s l-typedspace 

<32#candeinputareav))+2j 

p(pimix); pimixi»o; 

ltbgetspace(a#scratchdlrareav#scratchsave); 
inbuff l« getspacec11#i0bufferareav,1)+2jx 
firstcard l» getspace(10»c0ntr0lcardareav»t)+2;x 
else begin outbuffold »■ outbuff l« 

getspacec60#i0bufferareav*1)+2^x 
h t* savearraydescc30*diskheaderareav);x 



AND 



00062290 
00062999 
00067000 
00067010 
00067020 
00067030 
00067040 
00067050 
00067060 
00067070 
00067080 
00067999 
02134306 

02134716 
02205475 
02216000 
02216010 
02216606 
02216610 
02434430 
02434435 
02639006 
03618800 
03618816 
03638506 
03638600 
05804200 

05811466 
05811470 
07086000 
07087000 
07095000 
07095100 
07097008 



SHEAT ** LMlFl»TYPEDSPACE(3l#SHEETAREAV+64)33 
SEGO l« TYPEDSPACEC30>SEGZER0AREAV+6<OJX 

H *» CIOROWCR] I* CMC3I* 

GETSPACE(94#CIDR0WAREAV + 64#U*233 I 94 SIZE; 
Tl«GETSPACE(l3#C0NTR0LCARDAREAV*64»0)*4; 

SHEAT ♦ CMCF|»TYPE0SPACE<31#SHEETAREAv*64)33&3 
SEGO I* TYPEOSPACE(30#SEGZEROAREAV*64);X 
CI*TYPE0SPACE(5,MAINT8UFFAREAV);X 

BEGIN RI»TYPE0SPACEC5»MAINT8UFFAREAV);X 
Sl»CMtTYPEDSPACEC31#SHEETAREAV)]3 t 30CSIZE3;X 
OLNK*«[MtTYPIDSPACE(3l#SHEETAREAV)33 t 30C5lZEJ;X 
INTRNSC »■ CMUNTLDCI«GETSPACE(MAXINT+T17SIZE»INTARRAYAREAV,1 
B»«(GETSPACE(9l#I0BUFFERAREAV#D*2) & 9QCSIZE3;X 
L0GINF0«sSAVEARRAY0ESC(20#L0GAREAV)iX 

NTll«GETSPACE(5#MAlNTBUFFAREAV*64,Q)+2; 

T»*GETSPACE(l2*C0NTR0LCAR0AREAV+6a*0)+*U 
SEG 1= IF MCR3.AREATYPEF * CODEAREAV THEN MCR+13.CCF3 E 
ELSE P(MCR»23iAREATYPEF#DUP) * TYPE7INTAREAV AND P(XcH) t 
TYPE13INTAREAV) OR LOCN * OJ 
BUFF J* TYPEDSPACE(69#KEYINBUFFAREAV) ♦ Xi 

FHj a [M[Fl«TYPEOSPACECTEMP#OlSKHEADERAREAV)33 4 TEMPCSIZ 
FH »* [M[Fl»TYPEDSPACE(30*DISKHEADERAREAV)33 * 30 SIZE; 
STREAM CA#B^TltT»«QETSPACE( 10, CONTROUCARDAREAV+64^0) 
T!*GETSPACE(I+5#CQNTROUARDAREAV*64#0)*4;X 

S t« tMtTYPEOSPACE(31»SHEETAREAV)33 I 30C8» 38* 103 }% 
HOR »■ GETSPACEC30*OISKHEADERAREAV*1)*2; 
FPB I* TYPE0SPACE(SEG0C53 INX I* FPBAREAV)* 
FBisGETSPACE<SEGCCf3.tCF3xETRLNG#FPBAREAV#l)+2; 
LBl IBARRA YDESCC30#LBLEQNAREAV)U 
LBLI«AR«AY0ESCC30#|„BLEQNAREAV);x 
SEGOI«A8RAYOESCC30#SEGZEROAREAV);X 
SINFQ[MIX3,CCF3 !■ (STACKLOC »* 

GETSPACECSEGOC33 INX SC2U INX 64# STACKPRTAREAV I)) 
TRPU3t*CMCTI«GETSPACECSEGQU3.tCF3#SEGDlCTAREAV>l> + 23 3; 

STREAM(Ol»DALOCrtOW[Mlx3»5SAVEARRAYDEsCCOAUOCSlZE,DA|.OCROWARE 
VOID 

STREAM(D l» UVSPACI »« TYPEDSPACE(UV5IZ£#UVRQWAREAV ) ); 
MCHDR'2f t* (*P(DUP)) 4 JARROWAREAV areatypef; X 
STREAM(Q»«FSROlCMIX3tsSAVEARRAYDESC(4»FSAREAV));X 

TRP[33l«tKCGETSPACE(l*FPBAREAV#i)*233 ELSE X 

BEGIN CARD.C33I153 *• TYPEDSPACE( 13* CQNTROLCARDARE 
I»«GETSPAGE(30,JARROWAREAV4MIX(CTF3#i)*2; 
It»GETSPACE(UVSIZE»UVROWAREAV*MIXCCTF3»l)+2; 
SHEAT l»tMCFt«TYPtDSPACE(3i#SHEETAREAV+64)33 & 
SEGO l» TYPEOSPACE(30,SEGZERQAREAV*64);X 
IF (MIX »■ LINKiASEAMlXF) « THEN GO TO MCP; 
IF PCUNK.AREATYPEF>DUP> ■ CODEAREAV OR P(XCH) 

TYPE13INTAREAV THEN GO TO CODE; 
IF LINK. AREATYPEF ■ TYPE1 31NTAREAV THEN X TYPE 
IF 



4 30C5IZE3; 



0CSIZE3 



)+233« 



lse o; 

E3;X 

♦4); 



♦ 2; 

Ay));x 



AV)*2; 
30C8I38I103JZ 



13 INTRINSIC 



PCLINK, AREATYPEF»DUP) • TYPE7INTAREAV OR PCxCH) * 
TYPE13INTAREAV TH£N GO TO INTRINSIC* 
IF LINK. AREATYPEF m DATAAREAV THEN X OvERLAYABLE MCP DA 
MCGET8PACE*»T3*»(*P(0UP))*TYPEEAREATYPEF3IMIXCAREA 
BEGIN TMPt«GETSPAC E (FPBPTR+£TRLNG#FPBAREAV#l)+2;X 
H»*CMCTYPEDSPACEC42,Dl3KHEA0ERAREAVn3 * 30C8I 38 t 10 3; X 

T«*GETSPACE(30#DISKHEADERAREAV,n + 2U 

TMPI«GETSpACE(12»C0NTRQLCARDAREAV+64,5)+4;X 



TA 
MIXF3; 



*0725640Q 

07257400 
07433000 
07433108 
07446000 
'08274250 
08275500 
08385108 
08410000 
08881000 
08930000 
09506000 
12672508 
12848500 
14411820 
14533000 
16853000 
16854200 
16854308 
16954208 
18285200 

18286000 
18438120 
18520300 
20026600 
20028700 
20049008 
20049800 
20059100 
20089800 
20110406 
20116100 
20116200 
20124900 

20127308 
20127400 
20156800 
20169700 
20183618 
20187400 
20600950 
21304000 
21308000 
22069050 
22069108 
22297000 
22303000 
22303100 
22356100 
22386000 
22386056 
22386100 
24400000 
28050800 
28070000 
28288000 
28435000 



LAB«*ARRAYDESCC15#LABELAREaV);X 28451800 

FA»«TYPIDSPACE(TMPI«TEMP+(TEMP OIV 2)+2*DATAAREAV)+i;X 28452600 

CCA!«SAVEARRAYDESCC30,ESPDISKAREAVHX 28455400 

FAt*TYPEDSPACE((8UMPFA»«FASZ* a ir MAX > 128 THEN 128 ELSE MAX)* 28456800 

(FASZ OIV 2)+2#0ATAAREAV)+l*X 28457000 

SI»ARRAY0ESCC30,ESPDISKAREAV))% 28855000 

BEGIN M[ALPHA+I]*(CURlOC*GETSPACE(BSIZE*4^IOBUFFERAREAV#l)+2)+2; 37406000 

MCTi!»AlPHA-23l»M OR C GETSPACEC C T 1 J*M[ T l3 , SlZE)*4* 38107000 

LABELAREAV#l) + 4) & TUSIZE3 * CNTLBITSCFTF 3 ; 38107100 

BEGIN NT3 1- TYPEDSPACEC 1 3,LABELAREAV )+2i% 38107300 

MCT1««AIPHA-2JI«M OR (GETSP ACE( (T 1 I«M tT 13 ,S iZE )*4» 38205000 

LABELAREAV»1)*4) & TICSIZE3 * CNTLBJTSCFTF )i 38205100 

SESOI»CMCTYPEDSPAcE<62#SEGZERQAREAV)m30CSlZEm8434000 

IF COB0l>0 OR FI8U3.C7U] THEN 39304000 

M[FIB INX NOT 13.AREATYPEF I* COBOLFIBAREAV 39304500 

ELSE 39304600 

MCALPHA-7J.AREATYPEF l» ALGQLFIBAREAVJ 39305000 

KEY 1 = GETSpACE(5#MAlNTBUFFAREAV+64#0)+2; 41312700 

KEY is GETSPACEC5#MAINTBUFFAREAV*64,0)*2> 41314000 

Tl l« TYPEDSPACE(15#MAINTBUFFAREAV);% 41323136 

MLA l» [M[AI*GETSPACtC33,MAINTBUFFAREAV#0)+333 t 32CSIZE3JX 41328600 

It*CTt»fGETSPACECj + 2#lNQUIRYBUFFAREAV#0) + l)+3 ANO NOT 3* 4404100(9 

M[CI«JI»TYPE0SPACECI*MCPTABLEAREAV)*T3I»0; 44153508 

JJ*«GETSPACECZ#AVTABLEAREAV,1)*2J 44240840 

SCRATCHVECI«tMCGETSpACE(10,SCRATCHDlRAREAV#SCRATCHSAVE)*2 3 3 44241180 

* 10 [TQSUE3; 4424U85 

BEGIN 48052000 

P (NT4# BLOB »NT1#GETSP ACE CNTt#STACKAREAV# 3))' 48052 100 

SI BY JTC - MSA CENTRAL 99990000 

$» OATE 03/17/76* UPDATE 11/05/76 99990100 

Si THIS PATCH CAUSES THE TSSMCP TO TYPE MANY OF THE MEMORY AREAS 99990200 

S« THAT WERE LEFT UNTYPED BEFQREt THIS PRIMARILY BENEFITS THE DUMP 99990300 

SI ANALYZERt 99990408 
$1**********************************************************************99999999 

S#PATCH NUMBER 156 FOR TSSMCP MARK XVI CONTAINS 5 CARDS, 

IF HEADER. C CF 3 GEO 64 TH£N FORGETSPACECHeAOER ); 12561600 

SVOIOT 12572000 

SVOIDT 12573008 

P(l) 12573500 

ELSE 12574000 
$1 BY JTC - MSA CENTRAL 
SI SOFTWARE FLASH 1164 AND CORRECTION FLASH #190 

$!********************************************************************** 

S#PATCH NUMBER 158 FOR TSSMCP CONTAINS 18 CARDS. 00000000 

ARRAY W0RKERSTAcKC*3J X DESC. TO OLD* lERDHAROLDS STACK. 00299500 

ARRAY ESPTABC*3; REAL ESPCOUNTj X 00399000 

GETESPDlSK l» ( CP (DUP ) . CCF 3-ESPTAB . [CF 3 )*8 06031000 

S S* CESPTAB.CCF3*S,C30I15]) t SC30l33i X 06038000 

DEFINE HARRYSTA « WORKERSTACKC 53 *> X STA 14344100 

I IMM !■ P(.ESPTAB); FIXi X 44173200 

I »* iOOi T !■ P(.WORKERSTACK); FIX; % 44179108 

I l» 0; 44179200 

FOR T l« 1 STEP 1 UNTIL NUMSTACK DO 44179258 

BEGIN 44179300 

MCJ] I- i; X LINK TO PREVIOUS STACK IN 0. 44179350 

MCJ+13 t» WORDOFEASE; X CLEAR STACK 44179408 

M0VECSTANDARDSTACK»2#J*t»J*2)l 44179458 



I t 
J I 
end; 

STACKO 
M0VEC99 

DATE 3/19/76 

BY JTC - MSA CENTR 

THIS PATCH CAUSES 

ESPTAB TO HELP THE 

I ******************* 

#PATCH NUMBER 159 FC 

REAL PROCEDURE INPUT 

VALUE NUM#FLA 

REAL MODE*SOU 
REAL PROCEDURE INPUT 

VALUE NUM, FLAGS 

REAL MODE>SOURC 

U»»(DEST,[30»3J*DEST 

IF u*l AND SEQMODE X 
THEN % 

BEGIN 

STREAM (AI»OlDES 

BEGIN DI t« 

DSl* 

AI*D 

end; 
p([dest3#std); 

GO AUTI 

end; 

INPUTSCANl*U; 
Nlt«INPUTSCAN(MODE#S 
N1»*INPUTSCAN(M 
DEFINE SEQMOOE 



■ JJ * REMEMBER WHERE THIS STACK IS 

* j + stanoardstack; % compute address of NEXT ST 



t» II % POINT TO FIRST STACK IN Q, 
#U»W0RKERSTACK,CCF3#I + lj; *TO SPOT 



AL 

DESCRIPTORS TO BE BUILT FOR THE WORKERSTACK AND 

DUMP ANALYZER ANALYZE THE MCP SAVE AREAS, 
***** 



44179500 

AC44179550 

44179600 

44179650 

POSSIBLE OVER 44189600 

9999000© 
99990100 
99990200 
99990300 
99990400 
**99999999 



******************************************** 
R TSSMCP CONTAINS 25 CARDS 
SCAN (MODE* SOURCE* DEST*NUM*FLa6$*SEQMQDE) I 

gs,seqmodei 

rce*dest*num*flags*seqmqdei 

scan ( mode* squrce*dest*num* flags* seqmqde)! 

*seqmodei 

e*dest*num»flags*seqmodei 

c30«33i15])-(inptsc,c30i3hinptscc30»33i15])i 

um when only "♦" left in buf,* and if seqmooe 

true* then user backspaced to front of buffer, 

t>; 

01-11 %MAKE INPUT LOOK LIKE A NULL LINE 
2LIT" «•";% (SPACE) TO PREVENT CANDE FROM 
II XBELIEVING THIS IS END OF SEQ MODE 



NUM:«NUM+INPUT 
NUM»*NUM*INPUT 

Si BY DJZ-MSA CENTRAL 
$1 SOFTWARE FLASH #17 
SI SOFTWARE FLASH 20C 



0RC*AI*CM[AU,CFF]*X,[2I8J>>FLAGS*Q>; 

CDE*SORC*A3*MCAn,CFF3*FLAGS*0)l 

IF STATAB.5TATI0NTYPE/TWX THEN FALSE 

ELSE CLINEDISCCSTA]«TWX AND SEQARRaUSTA3/0)#I 

SC AN (MODE* SOURCE* J*BUFSZ-T1*FL AGS* SEQMODE) I 

SG AN (MODE* SOURCE* J* BUFSZ* FLAGS* SEQMOOE) I 



03071000 

03072000 

03073000 
03276800 

03277000 
03277200 

03290600 
03290700 
03290800 

03290819 
03290820 

0329083© 
03290846 
03290850 
03290860 
03290870 
03290886 
03290890 
03290900 
03307000 
03313400 
03614606 
03614700 
03618206 
03634000 



5 AND CORRECTION 
CORRECTION 



FLASH #185 



SI ******************************************** ************************ 



** 



S#PATCH NUMBER 160 FOR TSSMCP CONTAINS 12 CARDS, 
BEGIN 

IF P(0*RDS 
SVOIOT 

ELSE COMPLEXSLEEP( 
SVOIDT 06472501 

IF JARCP1MIX*9], 
EXITI P(P&RCWCCTC]*0 

SVOIOT 

IF CMEMCP1MIX*MLINK1]],CCFJ GEQ FENCE THEN 

SVOIDT 
JVOIDT 
SVOIOT 
SI BY JTC* KFK • MS* CENTRAL* SOFTWARE FLASH 176 

SI******************* 

$#PATCH NUMBER 161 FOR TSSMCP CONTAINS 1 CARD 



) GTR FENCE 

(B OR REPLYCP1MIX] GTR OR TERMSET(P1MIX ) ) )l 

SYSJOBF N£Q LIBMAINCQDE THEN GO INITIATE! 
*RDS*0*XCH*PiPCCTF3*STF)l 



06468000 
06470000 
06471000 
06472100 
06472200 
0647310Q 
28101200 
37180675 
37226106 
37226150 
37226500 
37227500 



************************************************* 
d fCcurD »nkiTiThit 1 r»ori 



** 



BOMBM IF 0U«18 THEN FORGETITJX 07231000 
$1 BY DJZ - MSA CENTRAL* SOFTWARE FLASH 177 

St********************************************************************** 
SfPATCH NUMBER 162 FOR TSSMCP CONTAINS 3 CARDS* 

IF (NT2l»P).[2«n THEN XLEFT AT 12626500 12635500 

SVOIDT 12638000 

BEGIN IF Cl00f-Tt[9lg4] OIV 5>*0 THEN %SPACE FORWARD 12650500 
SlBY DJZ • MSA CENTRAL* SOFTWARE FLASH 180 

$1********************************************************************** 
$#PATCH NUMBER 163 FOR TSSMCP CONTAINS 3 CARDS. 

* SET OMIT * PACKETS 2003*060 

ELSE FORGETSPACECHORJJ 20034070 

* POP OMIT 20034080 
$1 BY DJZ - MSA CENTRAL* SOFTWARE FLASH 183 

$ I ********************************************************************** 

$#PATCH NUMBER 164 FOR TSSMCP CONTAINS 16 CARDS, 00000000 

REAL ERt*ERfi*ER3>" LABEL ERSYSJ 2Q51U52 

ERU*")* ";% 2051U75 

OR SYSTEMFILE(CMM[03#CMM[U) THENX 20511188 

BEGIN ERSYS« ERH* M SYSTEM "JER2 »«"FlLE )♦ "J GO ERROR END; 20511190 

begin eRi»»"same fi"JeR2»«"le)» n * go error end 2o5ino3 

IF TYPE'USEV AN0 MtOPTN+23<0 THENX 20511312 

BEGIN ERll«"SECURlT">'ER2»* M Y F ILE)"JER3 l«"» "> GO ERR EN0i205U313 

BEGIN ERl»»"INVALID"> , ER2l«> ,, USER)*"JX 20511335 

ERRI FORGETSPACE(OPTN)U 20511340 

END ELSE IF QPTN*2 THEN GO ERSYSX 9 LINE 2051H90 20511363 

ELSE IF OPTN-1 THEN BEGIN ERll«"lN USE )"J ER2 *•"♦ M END 20S11364 

ELSE IF 0PTN*0 THEN BEGIN ERH»"NOT On ";eR2»» w DISK )«• " END>20511365 

ERROR' 205U366 

STREAM(Al*cCMMtO]]*ERt*CERl3»Bl»(OPTN«"5PACE(10))); 205 U 370 

0S««25 LIT » SECURITY MAINT IGNORED ("J $II*ER/X 20511400 

3(SIl»SI*i; DSI»7 CHR);* 205U405 

BY DjZ - MSA CENTRAL (SUBMITTED BY S, KELLEY - NATAL UNIVERSITY) 99990000 

DATE 05/12/76 99990106 

this patch makes the "security maInt ignored" message more 99990200 

explicit by adding one of the following reasons to the message! 99990300 

1) system file 99990400 

2) security file 99990500 

3) invalid user 99990600 

4) IN USE 99990700 

5) NOT ON DISK 99990800 
AND 6) SAME FlLEt 99990900 

**********************************************************************99999999 

#PATCH NUMBER 165 FOR TSSMCP CONTAINS 1 CARD, 00000000 

AND CCMFID EQV "BADISK " ) NEQ NOT 0) 28415250 

BY DJZ - MSA CENTRAL (SUBMITTED BY S, KELLEY «• NaTAL UNIVERSITY) 99990000 

DATE 05/13/76 99990100 

THIS PATCH WILL PREVENT "BAolSK" FILES FROM BEING DUMPED TO A 99990200 

LIBRARY TAPE. PREVIOUSLY* IF THESE FILES WERE RE-LOADED* THEY 99990300 

WERE ALLOCATED AS NORMAL FIlES, WITH A VERY SMALL CHANCE OF 99990400 

BEING PLACED IN THE PROPER SPACE. FOR DUMPING PURPOSES ONLY* 99990500 

ALL "BADISK" FILES WILL NOW BE TREATED AS SYSTEM FILES, 99990600 

NOTE THAT SITES SHOULD NOT ALLOW USER FILES TO BE CREATED WITH 99990700 

"BADISK« <MFID>S, AS TH|SE ALSO WILL NOT BE DUMPED, 99990800 

********************************************************************** 99999 99 9 

#PATCH NUMBER 166 FOR TSSMCP CONTAINS 18 CARDS, 00000000 

,C13«13 FILE TO BE AOOED (NOT ON OISK) 28200061 



MUSTADD » BA.CJ3I13** 

%******************************************* 

% CHECK IF FILE IS TO BE AODED 



**************************************** 



**** 



IF AD 

IF NO 

IF OU 

IF 01 

THEN 



ELSE 
IF MU 
"ON DISK"* 
St BY DjZ - MSA 
St DATE 05/13/7 
$t THIS PATCH W 
$1 DUMP TAPE TO 
$« ON DISK, A N 
$1 TO THE PACKE 
$1 FORMAT OF TH 
$» «<MFID> 
S I ************* 
$#PATCH 



DV TH 

T MLS 
m 18 

RECTO 
BEGI 
LBME 
IF D 
GO N 
END 
BEGI 

STAOD 

CENT 
6 
ILL P 

FIND 

ew me 

T PAG 
E NEW 
/<FID 

***** 



EN 

TADD THEN 

THENX TAPE TO OISK 
RYSEARCH(-MFID#FI0#5) NEQ OX ALREADY ON DISK 
N 

sscabscmfid)#fi0»-67»68#tinuuu]>spqutunit»libmsg)j 

sed then abort) 
ext; 

n m[fainf0 + j],c13i1j1*u mustaddu1 end* 
then tl»0 else* add file not on disk 

M # X 68 

RAL (SUBMITTED BY St KELLEY " NATAL UNIVERSITY) 



St 
St 
St 
Si 
SI 
St 



NUMBER 167 
IF KlN 
DATE 6/23/76 
BY JTC - MSA CENTRAL 



REVENT THE MCP FROM SCANNING DOWN 

A FILE WHEN THE FILE BEING AODEO .- 
SSAGE IS ALSO INTRODUCED. THIS WILL BE SEN 
E AND ALSO TO THE SPO IF LlBMSG IS SET. TH 

MESSACE iSt 
> NOT COPIED (ON DISK), MT<UMT> 
*************************************************** 



A LIBRARY 
IS ALREADY 
T 
E 



FOR TSSMCP CONTAINS 1 CARD, 
D«7 AND fIBCi33,C28tiOJ*ABS(C08QL> 



THEN GO FIND ELSE 



THIS PATCH FIXE 
BACK UP TAPES W 
FILE LABLES WRI 



S otherfileopenout 

ILL HAVE CORRECTLY 

TTEN on them. 



SO THAT C0B0L68 PRINTER 
FORMATTED PRINT 



St********************************************************************* 



S#PATCH 



X 
X 

X 
X 



CHECK 
THIS 



NUMBER 168 

LABEL ERR 
SWITCH TY 

FOR A PART 
IS ILLEGAL 



IF (R,C 

IF R, 
R.[ 

SVOIDT 04167801 

IF U LEO 
DATE 9/14/76 
BY JTC - MSA CE 



St 
St 
St 
St 
St 
St 
St 
St 

si 
si 



THIS PATCH REWR 
ON BINARY READS 
SUCH I/O RESULT 

SPACE REVERSE I 

CAUSED ONLINE/M 

NOTEt SITES T 

PARITY AND PART 



FOR TSSMCP CONTAINS U CARDS, TAPE PARITY 
B«S,DlSKERR>DS#X#SW,LP'OK,DX*DXl»DC>QK*LU 

pc t« qk#lp»ok*ok*dk#ok,ok#ok»qk#ok; 

IAL WORD BINARY READ WITH NO PARITY ERRORS, 
AND IS MARKED AS BEING A PARITY ERROR, 

18*123 AND 34462) » 00440 THEN X BIN READ'NO PAR 
U5I33 / ((8-R,C22tU) AND 7) THEN X PART WD XFER 
28113 t* M0D3I0S; X MARK AS PARITY ERROR IF MOO III 

15 THEN X TAPE I/O 
NTRAL 

ites the code for handling partial word transfer 
from tape. since this is illegal for the b5700 
s are marked as parity errors, previous to this patch 
/o s looked like partial word transfers and this 
aint tape confidence routines 1#2# and 3 to fail, 
hat read non-standard tapes that have binary 
ial word blocks may want to eliminate this patch 



28208300 
28270806 
28270807 
28270808 
28270809 
28270810 
28270812 
28270814 
28270816 
28270818 
28270620 

28270822 
28270826 
28270628 
26270830 
28281556 
41493065 

99990000 
99990100 
9999020G 
99990300 
99990400 
99990500 
99990600 
99990700 

*99999999 
00000000 
38272000 
99990000 
99990106 
99990200 
99990300 
99990400 
99990500 

*99990600 
00000000 
04125000 
04126000 
04129520 
04129530 
04129546 
04129550 
04129576 
04129580 
04129590 

04167106 
94129560 

99990000 
99990100 

99990200 
99990300 
99990400 
99990500 
99990600 
99990706 
99990806 
99990900 



*l SINCE IT WILL CAUSE RETRIES TO BE DONE ON SUCH TAPES. 99991000 

$i ************************************************************** 99991100 

StPATCH NUMBER 169 FOR TSSMCP CONTAINS 4 CARDS. 

PPCPR0CESSI*C;% 20602855 

IF UNITN0i32 THEN CIDROWCUNl TN0*32 3 , C 3 t5 3 1*0 ELSE* 20606900 

IF UNITNO-23 THEN READERA . CFF3 1 »0 ELSEX 20606910 

IF UNITN0»24 THEN READERB . [FF 3 1 »0; X 20606920 

$! BY DJZ • MSA CENTRAL 

SI SOFTWARE FLASH 201 

$t** ******************************************************************** 

$#PATCH NUMBER 170 FOR TSSMCP CONTAINS 1 CARDS 00000000 

BEGIN IF XlST»0 THEN XlST !■ CMCSPACECXlSTSZ I »30 ) ] 3 430 C8I 38 1 103 ; 20567005 

$1 DATE 9/1F/76 99990000 

St BY JTC - MSA CENTRAL 99990100 

St 99990200 

St THIS PATCH PREVENTS EXTRA EXCEPTION LISTS FROM BulLOING UP IN 99990300 

St CORE WHEN PROCESSING REMOVE OR CQPY CARDS WITH MULTIPLE 99990400 

St EXCEPTION LISTS. 99990500 

$t**********************************************************************99990600 

$#PATCH NUMBER 172 FOR TSSMCP CONTAINS 9 CARDS. 00000000 

ADECK * 0; FIRSTORSEC * 07108100 

S 07108999 

$ 07109001 

BEGIN LABEL TRYAGAIN; 20289030 

S 20289330 

Xl*6; MCBUF+173I«0; 20289335 

1291 GO TO EXTERNAL* X 35 • SPECIAL INTERRUPT 46QU500 

1 301 GO TO EXTERNAL; I 36 * DKA READ CHECK 46012000 

tilt GO TO EXTERNAL; X 37 - OKB READ CHECK 46012500 

St BY DJZ - MSC DETROIT 99990000 

S« DATE 11/29/76 99990100 

St THIS PATCH ... 99990208 

St 1) REMOVES SOME REOUNDANT CODE FROM PROCEDURE "C0M23 w i 99990300 

St 2) REMOVES UNNECESSARY LABEL IN PROCEDURE "PRINTTHECQvER** 999V0400 

SI 3) PREVENTS SYSTEM HANG jN "00 UNTIL FALSE" LOOP WHEN DISK 99990500 

St READ CHECK IS OETECTED. THIS WAS ORIGINALLY INTRODUCED IN 99990600 

St TEMPORARY PATCH #202* MARK XIV SYSTEM RELEASE. 99990708 

$1**********************************************************************99999999 

SKPATCH NUMBER 173 FOR TSSMCP CONTAINS 2 CARDS, 00000000 

XB5700 TS-MCP M a R K XVI. 0.172 05/11/77 00001000 

"172° 00005040 

St BY DJZ • MSC DETROIT 99990000 

St DATE 05/11/77 99990100 

St THIS PATCH UPDATES THE MARK LEVELS IN THE SYMBOL FILE* 99990200 

$1**********************************************************************99990300 

SfPATCH NUMBER 201 FOR TSSMCP CONTAINS 005 CAROS 00000000 

IF U*30 THEN 04129108 

BEGIN MC?153+C3I«R; 04129200 

DCIOFIMSH(R); 0412930C 

END! 04129400 

IF CEI«CM[f 153*C3l«R),C26l73)+CVt*T,C5l83) NEQ THEN 0413000© 

SI THIS CHANGE CAUSES THE RESULT DESCRIPTOR OF EACH I/O TO BE 00000002 

St STORED INTO MCPl53*I/0 CHANNEL NUMBER3. 00000002 

St 00000002 

SIBY JCF 00000002 

SITR .... 00000002 

StOATE 3/6/73 00000008 



Si****************************************************************************** 



$#PATCH NUMBER 202 F 
,MEMT0G 

IF CMEMCWAI 

I 

DEFINE StQREOYCStOR 

MEMTOG 

MEMtST 

STORED 

STORED 

S 

S 

BEGIN WAITSTOREC 

ST8RE0YC0#1 

WAITSTORE(PIMIX); 

ST0REDYCP1MIXM); 

WAITST0RECP1MIX); ST 

STOREDY(PlMlX*t)> * 
WAITSTORECMIX 
STOREDY(MIX# 

STOREDYCO»0 
ST8REDYC0*! 
AGAINI WaITST 
STORED 
WAITSTORECP 
ST0REDYCP1M 
MEMTOGtsi; 
SlTHIS PATCH ALLOWS 
SlCAFTER INITIALIZE) 
$« USEO * MEMTOG# RA 
SI BELOW THE FENCE. 
$«MUST BE MADE AS"ST 
SlOF THE PROCESS AND 
St 

$IBY AMS 
SITR 1790 

$«DATE 3/6/F3 

SI****************** 

SiPATCH 

BOOLEAN 

S SET 



CR TSSMCP#XV2 CONTAINS 25 CARDS 

» T0GLE,C43I13#'MEMT0GMASK 
TST0RE1*03],CCF3«0 THEN 
F NOT MEMTOG THEN SLEEP UTOGLE J #M 
EDY1#ST0REDY2)« IFt MEMC STORED Yt *0 
l«ST0REDY2 ELSE 
CRE0Yl#03.Cl7lU»»ST0RE0Y2#i 

YCO,0)J 

Y(0,1)J 

TOREDY(0#0)j 

TOREDY(QM)* 

0)1 ST0REDYC0#0); 

)j 

STOREDY(PlMIX»0)l 



»P20# 

EMTOGMASK)EL 
]).CCFJ»0 TH 



CREDY(P1MIX»0); 

FREE MEMORY TO ALLOW "ARTN" TO BE BROUGHT IN 

)) ST0REDY(MIX*Q); 

1)1 

); 
); 

orecmix); storedy(mix#0); 

y(mix*d; 

1mix)j st0re0y(p1mix#0); 

ix»n; 



CELL ZERO TO BE MONITORED F0« INV 
, IN ORDER TO ENABLE THIS* A NEW 
THER THAN M£Q J t C17I J]# TO INTERLQ 

WITH THIS PATCH REFERENCE TO STO 
CRED^^TaC}'"* WHERE MIX IS TH 

TOG IS EITHER OR 1. 



********************************* 



00080500 

00093U0 

SE ELSE00093120 

EN 0009340Q 

00093410 
00093420 
02396136 
02396500 
02434498 
02434530 
09617000 
09624000 
18841408 
18843508 
18843800 
18845008 
20119300 
20120308 

21032000 
21093000 
24309000 
24313000 
29544000 
29548000 
44114108 
90000004 

90000005 
90000010 
90000015 
90000020 
90000025 
00000002 

00000002 
00000002 

00000002 

*************************** 



ALID WRITES 

TOGLE IS 
CK MEMORY 

REOY 

E MIX INDEX 



NUMBER 203 FOR TSSMCP.XV2 CONTAINS 29 CARDS 
OKSEGZEROWRITE) 

IF (P(ICDESC,C3I5J 
OMIT « OKBNODFX 

>DUP) ■ 914 OR PCXCH 
i POP OMIT 

) « 96) AND 

not iqdesc.c24u3 and 
(((p(m[iodesc.ccfj3#oup) eov 0)«not 0) or 
(cp(xch) eov 32)*nqt 0)) and 
not oksegzerqwrite then 

bybycsegment zero overwrite*"* 23)j 
0ksegzer0writei>truej 
oksegzerow«itei"falsej 
oksegzerowritei»true; 

OKSEGZEROW«ITEl»FALSEj 
OKSEGZEROWRITElsTRUEJ 
OKSEGZEROWRIT|l«FALSEl 
OKSEGZEROWRITEl'TRUEi 



00422100 
04004U0 
04004119 
04004120 
04004121 
04004130 
04004140 
04004150 
04004155 
04004160 
04004170 
05665399 
05665401 
06059659 

06059661 
09645999 
09656001 
09682609 



QK 
OK 

OK 
OK 
OK 
OK 
OK 
OK 
OK 
OK 
OK 

$»THIS CHAN 
SlTO HANG I 

SlABOUT TO 
SI 

SlBY jcf 
$ITR 1766 
SlDATE 3/6/ 
SI ********* 

$#PATCH NU 



SEGZEROWRI 
SEGZEROWRI 

SEGZEROWRI 

SEGZEROWRI 

SEGZEROWRI 
SEGZEROWHI 
SEGZEROWRI 
SEGZEROWRI 
SEGZEROWRI 
SEGZEROWRI 
SEGZEROWRI 
GE IS PRQV 
N A "00 UN 
BE UNEXPEC 



73 



tei*faise; 
tei»true; 

tei*false; 

tei«true; 

tei«f*lse; 

tei»true; 

tei8false; 

tei«true; 

tehfalse; 

TEl»TRUEi 

TEt«F#LSEj 

IDED FOR DEBUGGING P 

Tit FALSE" LOOP WHEN 

TEDLY OVERWRITTEN, 



URPOSES ANO CAUSES THE 
EVER DISK SEGMENT ZERO 



THIS PA 
IF THE 
OF 20 W 
WHEN TH 
WHEN US 
BE SEEN 
TO DETE 



SI 
St 
SI 
SI 
SI 
St 

si 

St 

SlBY JCF 

SIDATE 3/6 

St******** 

S#PATCH NU 

REAL, R 

BOOLEA 

ZEROTI 

N,t32l 



****************************** 
MBER 301 FOR TSSMCP 
IF MODE I* ( 

SAVEWORD 
CNTCTL I" DI 
TCH ALLOWS THE READ 
FILE IS DECLARED AS 
OROS. ALSO THE CARD 
E PROGRAM CLOSES TH 
ING THIS FEATURE Si 

By THE SYSTEMf IT 
CT WHEN THE END OF 



,XV2 CONTAIN 
MQDE«Q) AND 
t* SAVEWORD 
REC »■ Oi 
ING OF PURE 
ALPHA WITH 
READER WILL 
E FILE* CARE 

NCE A M «END" 
IS THE PROGR 
THE FILE HAS 



********************** 

S 3 CARDS 
BLEN * 20 THEN 
OR TWOCU); 

BINARY CARD INPUT* 
A BUFFER LENGTH 

BE MARKED SAVED 

SHOULD BE TAKEN 

CARD WILL NOT 
AMS RESPONClBlLlTY 

OCCURRED, 



096826U 
40249400 

40262100 
42600919 

42600921 
42713949 
42713951 
42730999 
42731001 
444U399 
44411401 
MCP 44419421 
IS 44419423 
44419425 
00000002 
00000002 

oooooooa 
ooooooog 

***************** 

38107610 
38107620 
38107700 
90000015 
90000020 
90000025 



/73 

***** 

MBER 

ESULT 

N ZER 

MEOUT 

131*0 



r************** ************************* 



***** ****i 

302 FOR TSSMCP CONTAINS 049 CARDS 

* -4; 
OTIMEOUT; 
I*N,C32I13J 

; 

IF ZEROTIMEOUT THEN 
BEGIN 



STREAM 
BEGIN 



end; 

RESULT 
GO TO 



CTI*< 
SI l*A 
IF 4 
Tt»TA 



end; 

("END h )*C 
2; DIt«LO 
SC NEC DC 
LLY1 



RESULTt«2; 
STREAM(D»*A,[CF3> 
QSH8 LIT "T 

go to return; 

12)[24t42t61)IA2) 
c t; Dlt»DI+4; 
THEN TALLYtsi; 



; 

IME3 "I 



; 



i*polish; 

return; 

f papertape then 

EGIN STREAM(Tl»C n END")*SOURCE)i 
BEGIN SIt*LOC T; DIMSQURC 

sit*si+5; oit^Di+i; 



e; 



00000002 
***************** 
00000000 
0329230$ 
03296250 
03296300 
03296350 
03297410 

03297415 
03297420 
03297425 
0329743? 
03297435 
03297449 
03307100 
03307H0 
03307120 
03307130 
03307140 
03307150 
03317500 
03624400 
03624401 
03624402 
03624403 



IF 3 SC*DC THEN 03624404 

BEGIN DH«DI»3; DSI»3 LIT " "I END; 03624405 

END; 03624406 

FLAGBI«4; 03624407 

END ELSE 03624401 

BEGIN STREAM(Tl«( w EN0")»S0URCE); 03624410 

BEGIN SHaSOURCE; DH«LOC TJ 03624420 

SI;«SI + U DI 1*01+5; 0362443C 

IF 3 SC NEQ DC THEN TALLY!*!; 03624446 

TlsTALLY; 03624450 

END! 03624460 

IF POLISH THEN GO TO CEJ 03624470 

ENOj 03624480 

BEGIN STREAN(S0URCE#KJTI«PAPERTAPE); 03624600 

IF SC*MARK THEN 03625308 

BEGIN DIt-LOC KJ DSM3 LIT "END"/ 0362531* 

sn«si*ij dh*di-3; 0362532* 

IF 3 SC*DC THEN 03625330 

BEGIN TALLYt»2i KI*Si; DII*K; 03625331 

T(DH»DI"3; 03625332 

DS»*3 LIT " "); 03625333 

END ELSE TALLYl'i; 03625334 

END; 03625340 

RI*PQLISH; 03625600 

FLAGSlsIF R THEN 4 ELSE 03625610 

IF C(R*2> AND PAPERTAPE) THEN 4 ELSE 03625620 

IP C(R«2) AND FLAGS) THEN 4 ELSE FLAGS; 03625630 

I THIS PATCH IMPLEMENTS THE EOF BRANCH IF "QENO" IS TYPED 00000002 

I TO A REMOTE JOB AS INPUT. 00000002 

I ALSO THE PARITY LABEL WILL BE TAKEN IF DATA IS NOT PRESENT AND A ZERQOOQQOOQi 

I TIME OUT WAS SPECIFIED. 00000002 

I 00000002 

IBY JCF 00000002 

ITR ,,,, 00000002 

IDATE 3/6/F3 00000002 

* PATCH NUMBER 401 FOR TSSMCP , XV 1 ,00 CONTAINS Ol CARDS, FIVE MINUTE SLEEP LIMIT. 

TIMELIMITMAX ♦ 3600 x S ♦ 18000 J S*Q; X401-GRK 22013138 

l 

I THIS PATCH INCREASES THE MAXIMUM SLEEP TIME ABOVE THE FENCE FROM 
I 15 SECONDS TO FIVE MINUTES PLUS ONE MINUTE FOR EACH ACTIVE JOB. 
I FAR TOO MANY JOBS GET KILLED AT 15 SECS THAN IS REASONABLE. 
I 

I G.R.KENNEDY 25FEB76, BROCK U, PATCH 401 
I********************************************************************** 

* PATCH NUMBER 403 FOR TSSMCP. XV I »00 CONTAINS 01 CARDS , PREVENT FLAG BITS ON CM, 

STREAM(BASE); BEGIN 3<DS*LIT"0"; DWDI + 7); ENOJ %403-GRK 09680450 

I 

I THIS PATCH PREVENTS SYSTEM HANGS CAUSED BY GARBAGE IN SEGMENT ZERO 

t IN PROCEDURE CHANGEMCP, 

I THE CURRENT MCP NAMECS) AND BASE DISK ADDRESS MAY HAVE THE FLAG BIT 

* ON (IT HAPPENED AT LEASE ONCE), 
I 

I G.R.KENNEDY 17FEB76, BROCK U, PATCH 403 
I********************************************************************** 

* PATCH NUMBER 407 FOR TSSMCP , XVI ,00 CONTAINS 01 CARDS ,CONTRQLCARD SCREWUP, GRK 

PCDIRECT0RYSEARCH(NABS(CMMt03)#IF CMMtOKO THEN "DISK M ELSE 20606865 



this patch fixes a problem in controlcard which caused the mcp save 
core to gradually increase, the problem was with control card 
errors on cqmpiu cards, at "jnc5c" there was a call on 
directorysearch with -cmmcoj so as to not return the file header, 
but • compilers have cmmco] negative* so ... 
received from daexel university by phone on 16jul75, 



G.R.KENNEDY 10CCT75, BROCK U. PATCH 407 

**************** 

OR "CL" WORK, 

X41Q 16212100 

19 X410 16216000 



J G.R.KENNEDY 100CT75, BROCK U. PATCH 407 
I************************************************************** 
# PATCH NUMBER 410 FOR TS3MCP ,XV I ,Q0 CONTAINS 02 CARDS, LET "SO" 
JAR[MIX#6].UU3*(CTYPE»9) OR <TYPE*19))i X0S*8*SD«9* CL-19 
**X JARCMIX»63,[1I13*CCTYFE*9) OR (TYPE*19))J XdS*8*Sd*9* CL»19 



M[CPUlC + 4]«-II IJOB MJX INDEX 

M[CPUI0+5]*CCSCn*NEXTMQM) + 3O)DIV 60/ XCPU TIMI 
McCPUl0*6]*((S[23*VECT0R[4Hl0TlMECl3)*30)0lV 61 
M[CPUI0+7]*St3 3*<LCCl3»SCCI])KCHUNKzl2E+CHUNK2l; 

STRF AM / T .rPllTD ^ 1 



THIS PATCH TO KEYINo SHOULD ALLOW "SO" OR "CL" TO SAVE PSEU0Q»DECKS» 
WE WILL SETUP THE "SAVE-THe-DECK" BIT BEFORE CALLING TERMINATE* AS 
IN THE DCMCP. 

G.R.KENNEDY 13JUL76, BROCK U. PATCH 410 
********************************************************************** 
# PATCH NUMBER 504 FOR TSSMCP. XVI #00 CONTAINS 22 CARDS, EQJ JOB STATI STIC StGRK. 
REAL CPUIOjs + 14; X504-GRK 14351306 

pco); xzero out cpuio x504-grk 14355060 

cpuio*getspace(10#0#1)*2^ x504-grk 144j3020 

mccpuio+2j*vector[03; xjob prefix xso4-grk 14413030 

mccpuic+33*v|ct0rc13; xjob suffix x504-grk 14413040 

M[CPUlC+43«-i; IJOB MIX INDEX X504*GRK 14413050 

TIME X504-GRK 14413060 

60JX504-GRK 14413070 

Hi »504 14413080 

STREAM(I*CPUIO)i ' " X504-GRK 14430031 

BEGIN DS«-5LIT" FOR "* SI*CPUIQ; Sl*SI*17j X504-GRK 14430032 

DS*7CHRJ 0S*LIT"/"; SI*SI+U DS*7CHR* X504-GRK 14430033 

DS*LIT"«"; DS*20EC; 1*011 0H-DI-2J X504-GRK 14430034 

0S*FILL/ Dl*I' dS*5LIT"IPST«", DS*5DEC; X504-GRK 14430035 

1*011 01*01*5/ DS*4FILL; DIM* X504»GRK 14430036 

DS*5LIT"*I0T«"; DS*5DEC; I*DU DI*DI-5; X504"GRK 14430037 

DS*4FILLJ DI*U DS*6LIT"#COREw"; X504-GRK 14430038 

DS*5DEC; I*Oi; 0I*0l*5j 0S*4FILLJ X504-GRK 14430039 

01*1/ QS*LlT"*"i X504-GRK 14430040 

END STREAM/ X504-GRK 14430041 

S»0UTER(CPUI0#UNITN0#64)/ X504-GRK 14430042 

IF UNITNO/0 THEN X504-GRK 14430043 

THIS PATCH PROVIOES THE EOj JOB STATISTICS MESSAGE SIMILAR TO 
THE OCMCP MESSAGE. IN ADDITTIQN* MAXIMUM CORE USAGE IS PROVIDED, 

SPOUTER DOCUMENTATION SPQUTER( MESSAGE*UNlTNO* TYPE > 

ssssvssssasssascssscx -ssiiMEtcsssitctxtcaistaiiaf 

OEFINES I SPOUT(MESSAGE) ■ SPOUTER (MESSAGE* Q* 1 ) 
SPOUTITCMESSAGE#TYPE) ■ SPOUTER* MESSAGE* 0* TYPE ) 

NOTES I — CONOITION— MESSAGE DISPATCHED COMMENTS 
UNITNO TYPE SPO PACKET LOG -. — .— — — 

N/A N Y Y 

N/A 64 N Y N FOR PACKET PAGE ONLY 

N/A NEG, N Y N 



» N/A TRUE Y Y Y 

« 

I G.R.KENNEDY 10JUN76, BROCK U» PATCH 504 

J THIS PATCH IS NEEDED BY PATCH 509 

t ********************************************************************** 

# PATCH 508 FOR TSSMCP,XV,3 CONTAINS 4 CARDS. PREVENT FILEHQLD FOR "CHANGE" 

i this removes a pbtential invalid link problem in procedure libcc which 

» WOULO OCCUR IF A FILE WERE REMOVED WHltE IN THE PROCESS OF BEING 
I A) REMOVED OR B) CHANGED, 

1 THIS ALSO PREVENTS A FILE H(jLO SITUATION FROM OCCURRING WHEN A CHANGE 
» COMMAND IS ENTERED FROM A REMOTE TERMlNALt 
*» NATAL U. PATCH 508 

IF T GEO 64 THEN 20574917 

T*DlRffCT0RYSEARCHCCMMC0]*CMMtn*(P(UNlTN0#DUP)»25 OR 20577826 

P<XCH)«?0)C1I47«U#4); END; 20577827 

IF T GEO 64 THEN 20577828 

si********************************************************************** 

$# PATCH NUMBER 509 FOR TSSmCP.XV I ,00 CONTAINS 17 CARDS .PRNPBTZlDCNTRL BQj/EQj 

IF P THEN MAKELOG<MESSAGE#ABSCTYPE))J X509-GRK 02134000 

END; IF TYPE LSS THEN TYPEt«64J X509-GRK 02134005 

SPQUTITCLOGINFO* X509-GRK 12704000 

64); X509-GRK 12704100 

SPOUTITCVECTOR INX 0* X509-GRK 14430000 

IF NOT C CMCCPU1Q+3] EQV "DISK ">»NQT ANDX509 14430002 

( CMCCPUIO+23 EQV "PRNPBT ")«*NOT QRX5Q9144300Q4 

(MCCPUIO+23 EQV "LDCNTRL")»NQT 0))X509 14430006 

THEN ((LINK OR CANDYMESSJ AND EOJMESS %509-GRK 14430008 

AND (NOT JAR9),C2*i) OR EOJK) X509-GRK 14430010 

ELSE -EOJK); X509-GRK 14430012 

SP0UTER(T#UNITN0» X509-GRK 20104200 

IF NOT ( (JARCMIX*13 EQV "DISK ")*NQT AND X509-GRK 20104300 

( (JAR(MIX^03 EQV "PRNPBT ")»NQT OR X5Q9-GRK 20104310 

(JAR(MIX»03 EQV "LDCNTRL")'NOT 0) ) X509-GRK 20104320 

THEN (((NOT SC03)tC2ll] OR CANOYMESS) X509-GRK 20104330 

AND BOgMESS AND I OR BQJK) ELSE *BQ*IK); X509-GRK 20104340 

THIS PATCH SUPPRESSES ALL "BQJ" AND "EOJ" SpO MESSAGES FOR 
"PRNPBT/DISK" AND "LDCNTRL/DlSK". THIS SHOULD HELP ELIMINATE 
SPO "CLUTTER". 

NOTE THAT SPOUTER HAS BEEN MODIFIED TO LOG NEGATIVE MESSAGE TYPES 
BUT NOT SPOUT THEM (SIMILAR TO TYPE 64 • BUT TYPE IS RETAINED). 

G.R.KENNEDY 31MAY76, BROCK U, PATCH 509 
THIS PATCH USES VARIABLE CPUIO WHICH IS DEFINED IN PATCH 504 
CORRECTED TO INCLUDE BOJMESS BY OR, UCSC 
SEE ALSO DREXEL U, PATCH 716 
********************************************************************** 
PATCH 510 FOR TSSMCP.XV, 3 CONTAINS 2 CARDS, INITIALIZE TYPED PROCEDURES 
THIS PATCH CORRECTS AN ERROR INTRODUCED BY PATCH NUMBER 24 TO MCP.XV 
WHERE THE VARIABLE PROCVAL WAS NOT INITIALIZED IN THE PROCEDURES 
"ACESBIT" AND "CCCOMPILE", WHEN RETURNING FROM THE PROCEDURES THE 
VALUE OF THE TYPED PROCEDURES WAS TAKEN FROM THE LAST VALUE OF 
PROCVAL, THIS CAUSED ODD ERRORS, E,G, THE CARDSI 
Q LOAD FROM XYTAPE ANY/NAME 
Q COMPILE PROG/NAME FORTRAN 

WOULD RESULT IN "CONTROL CARD ERROR AT FORTRAN", THE TYPED 
PROCEOURES ARE NOW INITIALIZED, NOTEl- ACESBIT NOW CCSET 




St NATAt U. PATCH 510 

CCCOMPIU*CJ 20584340 

CCSET*©; 207U100 

r***#************************************************ 

" "■" " """ WITH 65 JOBS ON OISK 

SK AND A "PC" IS 
65 JOB* #NNNN 

» 

SULOC Ti; 07295100 

IF SC* W W THEN GO TO AQ 07295102 

ELSE 5l*SUi; 07295104 

AQi BEGIN 05*3 UT "S# n i 07295160 

$l************************************ ********************************** 
$# PATCH 512 FOR TSSMCP, XV. 3 CONTAINS 7 CAROS. ERRQR PROGRAM PARAM CARDS 
$1 THIS PATCH REARRANGES SOME CODING IN PROCEDURE PPC FqR CLARITY AND 
Si GENERATES A CONTROL CARD ERROR FQR IDENTIFIERS ON PROGRAM PARAMETER 
SI CARDS WHICH ARE UNDEFINED. 
SI NATAL U, PATCH 512 

ELSE IF TYPE»CQRE¥ THEN 20504500 

BEGIN XC203 * TPNO DIV 64; 20505000 

DO UNTIL CIQD ♦ SCAN)*MAXV OR IOD«PERlOI 20507000 

IF IBDsMAxV THEN PC [XC203J# IQR) ELSE GO TO DOWN; 20507100 

END 20507200 

ELSE IF TYpEiPRlQR AND TYPESSAVEV THEN 20507300 

XC18*TYPE»PRIQRJ*TPN0 ELSE GO TO ERROR* 20507400 

I ********************************************************************** 

# PATCH 517 FOR TSSKCP CONTAINS 3 CAROs, OVERLAY DIsK SPACE USED UP 
l WHEN A PROqRAM HAS EXCEEDED ITS UVERLAY DISK SPACE, THIS PATCH WILL 
I CAUSE THE MCP TQ ISSUE THE MESSAGE "ARRAY qlaY SPACE USED UP" WHEN 
I DS-ING THE PROGRAM, INSTEAD QF "INVALID ARRAY SUE ION". THE LATTER 
I MESSAGE IS MISLEADING, 

I BY STEVE KELLEY, REQUESTED BY NATAL U. MAY, 1974 
« NATAL Ui PATCH 517 
J MODIFIED FOR TSSMCP BY DR, UCSC JAN, 17, 1977 

TERMINATE (MIX* 99CCTFJ); 06411010 

"8ARRAY ", M 80LAY S", X 99 41445700 

"SPACE U M , M 6SED UP", % 41445800 

I********************************************************************** 

# PATCH NUMBER 519 FOR TSSMCP. XV 1 ,00 CONTAINS 01 CAROS, ENABLE "FILE IN USE" OK, 
BEGIN T*VWY*VQK[36l42i63*(VIFxA,C3tl]H30»42!63J X519-GRK 18025000 

THIS PATCH ENABLES »#FIL IN USE" SITUATIONS TO BE "OK-EO". 
PREVIOUSLY (EXCEPT FOR LlBMAlN) THE ONLY ALTERNATIVE WAS *DS", 

G.R.KENNEDY 30JAN76, BROCK U, PATCH 519 
SEE ALSO UCSC PATCH 815 
********************************************************************** 
PATCH 521 FOR TSSMCP, XV. 3 CONTAINS 17 CARDS. FIX PROCEDURE "CCSET" 
THIS PATCH FIXES THE MESS THAT PROCEDURE CCSET IS IN, 
THE PROBLEMS FIXED AREI 

A) FILE HEADERS OF ALL FILES REFERENCED BY THIS PROCEDURE ARE LEFT 
IN CORE, 

B) DIRECTORY WAS BEING UNLOCKED IN MANY CASES WHEN IT WAS NOT LOCKED 
BY THIS PROCEDURE. 

C) DISK HEADER WAS BEING WRITTEN BACK UNALTERED AT LINE 20739000 
INSTEAD OF A FQRGETSPACE QN THE HEADER. 



$1 NATAL U, PATCH 521 

BEGIN T*2; GO TO liJ END; 20730000 

BEGIN FORGETSPACECTH T»ll GO SKIP/ END; 20739000 

$ VOIDT 20739100 

$ VOIDT 20739200 

ELSE BEGIN 20769000 

S SET OMIT * SHAREDISK 20769100 

UNLOCKDIRECTORY; 20769200 

$ POP OMIT 20769300 

LBMESS<CMM[23*CMM[3]*'C11+TOg)*«1*G*SPOUTUNIT*1); 20769400 

END; 20769500 

FORGETSPACE(T); 20769600 

ELSE BEGIN 20771000 

S SET OMIT * SHAREDISK 20771010 

UNLOCKDIRECTORY; 20771020 

S POP OMIT 20771030 

END; 20772050 

$ VOIDT 20772301 20772100 
$1********************************************************************** 
S* PATCH 523 FOR TSSMCP. XV, 3 CONTAINS 1 CARD, "RESERVE DISK REMOVED" SPQ ONLY 

$1 THIS PATCH MAKES THE "** RESERVE DISK REMOVED" MESSAGE GO TO THE SPQ 

*t ONLY. PREVIOUSLY IT ALSO WENT TO THE MESSAGE PAGE FQR THE JOB, 

SI NATAL U, PATCH 523 

SP0UTER(Z'25#CN0T LIBMSG) ANO iU 06353660 

S«**************************+******************************************* 
$# PATCH 52? FOR TSSMCP CONTAINS 3 CARDS, FIXES TO "SET" AND "RESET" 
$1 THIS WILL ALLOW ONE TO ENTER A "SET" OR "RESET" CONTROL CARD FROM 
*l THE SPO AFTER A CONTROL CARD ERROR ON THE LAST INFORMATION ENTERED 
SI FROM THE SPO, PRIOR TO THIS* EVEN THOUGH THE CORRECT INFORMATION WAS 

si entered for a set or reset control card* the first word would not be 
si recognized* resulting in a further control card error, 
$1 this will also fix the case where a set or reset control card 
st followed an execute card, the set or reset was being taken as a 
si program parameter card, 
si natal u, patch 527 

si modified for tssmcp by dr* ucsc jan, 17* 1977 

controlai if (t < frev or t > cobol) and accumco] t cmplr then 20604300 

if t geo unlockv and t leq resetv then go to finis 20604350 

if cupacket) and ctsresetv) and (t'runv) then 20608078 

$# patch 528 for tssmcp contains 1 card, try disk space after reserves remove 
si this causes another attempt to get disk space after reserve disk is 
si removed instead of spouting no user disk and forcing the operator to 

St 00 AN "OK" FOR THE JOB, 

St NATAL U. PATCH 528 

St MODIFIED FOR TSSMCP BY DR* UCSC JAN, 17* 1977 

FORfiETSPACE(BUFF); PCXIT); 06353675 

$1********************************************************************** 
S# PATCH 534 FOR TSSMCP CONTAINS 3 CARDS, FIX "XT" * "CT" FOR **N K "*<EMPTY> 
Si THIS PATCH CORRECTS PROCEDURE "TIMERELAXER" SO THAT THE INPUT 
St COMMANDS "XT" AND "CT" WORK CORRECTLY, PREVIOUSLY IF THE CHANGES TO 
SI THE TIME ESTIMATES WERE OF THE FORM **N THEN AN INV KBO RESULTED, 
St THIS WAS BECAUSE AFTER FINDING THE * * SI WAS NOT INCREMENTED TO SKIP 

St OVER IT, 

St THIS ALSO FIXES THE CASE WHERE THE IOT IS OF THE FORM ",<EMPTY>". 

SI PREVIOUSLY* THIS WOULD ALSO HAVE GIVEN AN "INV KBD", 

St NATAL U. PATCH 5$4 



IF SC=" " THEN GO Ll' ENO; 08739000 

IF SC» H * H THEN BEGIN SI*SI+i; GO L5; END* 0873950Q 

IF SC»"* M THEN BEGIN TALLYM; GO EXlTi END; 08749500 

I********************************************************************** 
# PATCH 53S FOR TS3MCP.XV.3 CONTAINS 23 CARDS. FIX PROCEDURE CHANGEOPTION 

i this patch fixes some bad cooing in procedure changeqption where the 
I scan may go past the end of the input buffer, it is a re-write of 

t THE SCAN PORTION. IT ALSO MAKES THE USE OF THE WORD "USE" OR "U" 

I OPTIONAL IN THE SO OR RQ WITH THE OPTION MNEMONIC (AS WITH THE OPTION 

I NUMBER). 

I NATAL U. PATCH 535 

L0» Sl*8UFFJ 08634000 

LP IF SC«* " THEN BEGIN SUSI+U GO TO Li J END; 08635000 

IF SC<"0" THEN 08636000 

IF SC*"»" THEN 08637000 

BEGIN TALLY*o; TOTALLY; DH-LQC T; 08638000 

8<IF 5C" " THEN JUMP OUT ELSE 08639000 

IF 5C» M *" THEN JUMP OUT ELSE 08640000 

IF SCi"0" THEN JUMP OUT ELSE D5*CHR)i 08641000 

BUFF^Si; SUOPTER; 08642000 

63(DI*L0C T; 08643000 

IF 8 SC«DC THEN JUMP OUT TO L2 ELSE 08644000 

IF 5C""*" THEN JUMP OUT TO LO ELSE TALLY*TALLY*1 >;08645000 

GO TO L9; 08646000 

L2I IF Sc»"* M THEN GO TO LO; 08647000 

END ELSt 08648000 

L3» TALLY*48 ELSE 08649000 

BEGIN DI*L0C Tj SI*SHU 08650000 

IF SC<"0" THEN BEGIN SI*SI"1J DS*i OCT; END 08651000 

ELSE BEGIN SJ>St*li DS«-2 OCT; END; 08652000 

TALLY*4*; T(TALLY*TALLY+63); 08653000 

END; 08654000 

totally; sulqc t; di*r; ds«-wds; 08655000 

$ VOIDT 08656000 

St********************************************************************** 

S# PATCH 538 FOR TS8MCP.XV.3 CONTAINS 2 CARDS, FIX TIMING PROBLEM WITH PURGE 

Si THIS PAtGH CORRECTS A TIMING PROBLEM WITH A PROGRAMMATIC PURGE OF A 

$1 TAPE FILE. THE PURGE IS HANDLED BY AN INDEPENDENT RUNNER WHICH HAS 

$1 TO WAIT UNTIL THE TAPE HAS REWOUND. IF A PROGRAM CLOSES FILE "A/B" 

St WITH PURGE AND THEN TRIES TO OPEN FILE "A/B w * IF THE PURGE HAS NOT 

St OCCURRED* IT MAY TRY TO GRAB THAT UNIT (SEE FlNOOUTPuT * 37027000). 

St THE PRNTABLE STILL CONTAINS THE POINTER TO THE TOP I/O DESCRIPTOR* 

SI THE SPACE FOR WHICH HAS ALREADY BEEN FORGOTTEN, SO THAT IT MAY PICK 

St UP GARBAGE. THIS IS FIXED BY SETTING THE MIX INDEX OF THE PROGRAM 

St ASSIGNED TO THE UNIT TO ZERO IN THE RDCTABLE BEFORE STARTING THE 

St INDEPENDENT RUNNER TO PURGE THE TAPE. 

St NATAL U. PATCH 538 

BEGIN «0CTABLECU],C8I6J«'0; 38788500 

F0RK(P(.PURGEIT)#U#-2#128*l) END ELSE SETN0TINUSE(U#0 ); 38789000 

$ I ******************* *************************************************** 

s# patch 539 for tssmcp.xv.3 contains 2 cards, purge of tape after cllp* 

St THIS PATCH C0RRICTS THE CLLP* WHEN PRINTING FROM A BACKUP TAPE WITH A 

St W/RING. THE TAPE IS NOW REWOUND AND PURGED CORRECTLY, PREVIOUSLY* 

St THE PURGE DID NOT TAKE PLACE. PRIOR TO THIS PATCH, pRNPBT/DISK 

St REWOUND THE TAPE AND STIRTED AN INDEPENDENT RUNNER (PURGEIT) TO 00 

St THE PURGE, TERMIN ALMESS AGEA VIA UNHOOQUE FOUND THE TAPE IN USE BY 

SI PRNPBT/DISK FROM ROCTABLEC I J , C8 1 63 AND SET THE UNIT NOT READY IN 



SI LABELTABLE C«0U4). WHEN THE REWIND WAS COMPLETE* STATUS FINOS THE 
St TAPE NOT READY AND FORGETS THE PURGE* LEAVING PURGEIT UNLINKED IN 
SI CORE WAITING ON AN I/O COMPLETE. (UNIT SAYS NO I/Q-S BUT IQflUE SHQW3 
$1 I/O-S FOR WHICH THE SPACE HAS NOT BEEN RETURNED). 
SI NATAL U. PATCH 589 

BEGIN ROCTABLECUNlT3.t8l63*0; 12528400 

END 12528600 

$t**#******************#*********#********************#***************** 
S# PATCH 540 FOR TSSMCP CONTAINS t CARD, FIX "IL W FOR "#NQ FIL ON DISK" 
$1 THIS PATCH CORRECTS THE RESULT OF AN "IL" INPUT MESSAGE IN REPLY TO 
$1 A "#N0 FIL ON DISK" CONDITION, PREVIOUSLY, IF AN "ILCD*" WAS INPUT* 
St A SYSTEM HANG RESULTED, THIS WAS BECAUSE THE TEST WaS FOR AN ACTUAL 
SI UNIT RATHER THAN ALL UNITS, 
SI NATAL U, PATCH 540 

S| MODIFIED TO USE MAGIC NUMBER 35* BECAUSE TSSMCP DOES NOT HAVE 
St PSEUDOMAXT, OBSERVE ON LINE 00277000 OF TSSMCP THAT TINUC353 ■ DATA 
St FOR THE LAST PSEUDO READER. BY OR, UCSC JAN, 17* 1977 

IF (SH*T2«-REPLY[PiMIXJtCFFJ) > 35 THEN X IL 06463380 

$ I ***#***##********************#**************************************** 
S* PATCH 543 FOR TSSMCP. XVI, CONTAINS 13 CARDS, FIXES TQ NEW LIBMAIN 
S| THIS CORRECTS A NUMBER OF PROBLEMS IN THE NEW LlBMAlN/DlSK t 
St 1, IF MORE THAN ONE EXCEPTION LIST APPEARS WITHIN ONE CONTROL CARD, 
SI THEN THE SPACE FOR ALL ExCEPT THE LAST IS NOT FORGOTTEN. 
St FIXED AT 20570070 AND 20573350, 

SI 2, IF TH£ EXCEPTION LIST CONTAINS MORE THAN 13 FILE NAMES AND THERE 
St IS AN AS CLAUSE* THEN A CONTROL CARO ERROR MAY OCCUR EVEN THOUGH 
Si THERE REALLY IS NOT ONE. THIS IS BECAUSE THE ORIGINAL FILE NAME 
St HAS BEEN OVERWRITTEN BY THE EXCEPTION LIST. FIXED AT 20569930 ETC 
St 3, FIX TO USE DEFINES RATHER THAN CONSTANTS. 
SI NATAL U. PATCH 543 

IF T GEO COPYN AND T LEO LOAO THEN 20566807 

IF T GEO COPYN AND T LEO LOAD THEN 20566822 

Tl.C46ll3*H0LD3*(«N»EQUAL^ 20569930 

IF H0LD3 THEN PR0GCCNT3 *«-l ELSE 20569935 

IF CN GEO IDENT THEN PRQGCCNT 3 l«ACCUM CC3 ELSE GO POWJE* 20569940 
Tl,C47tn«-H0LD3*((CN*SCAN)*EQUAL>; 20569960 

IF H0LD3 THEN PROGCCNT+13 I *-l ELSE 20569965 

FQRGETSPACECXLST)* XLSTHO; 20570070 

IF <CN*SCAN)*£QUAL TH£N IF U, [46113 THEN 20570136 

ELSE IF CN GEO IDINT THEN IF T1.C46U3 THEN GO PQWIE 20570150 

IF (CN*SCAN)"EQUAL THEN IF Tl THEN 20570190 

ELSE IF CN GEO IDENT THEN IF Tl THEN GO POWIE 20570210 

IF XLST NE« THEN BEGIN FORGETSP ACECXLST ) ; XLSTMQJ END; 20573350 
t#**#******#*************#*****************#**********#**************** 
# PATCH 548 FOR TSSMCP, XVI, CONTAINS 1 CARD, WRONG FIB CHECK IN FlNDQUTPUT 
I THIS PATCH PREVENTS FlNDOUTPUT FROM CHECKING ON A NON-EXISTENT FIB. 
I THIS SHOWED UP B* USINGI 
I CC COPY •/« FROM A TO AJ ENO 

I WHERE THE SOURCE TAPE HAD A WRITE RING, LIBMAIN/OISK READ THE 
I DIRECTORY CORRECTLY ANO THEN TRIED TO FIND THE OUTPUT TAPE, 
I FlNDOUTPUT THEN ROUND THE TAPE OF CORRECT NAME* IN USE BY 
I LIBMAIN/BISK, WITH A WRITE*RING AND TRIED THE "FIB". 

I PRNTABLECU3.U5U53 WAS ZERO SO THAT M CM C33 +53 , C41 1 13 WAS TESTED. 

I CMC33 CONTAINS THE MCP VERSION NUMBER), THE CONTENTS OF THE MEMORY 

I CELL TESTED COULD BE SUCH AS TO SATISFY THE TEST, THUS* LlBMAlN/DlSK 

I THEN WROTE AN OUTPUT LABEL ON THE SOURCE TAPE ANO FINALLY WHEN TRYING 

I TO DO THE NEXT «EAO» DECIDED THE TAPE WAS NOT A LIBRARY TAPE, 



Vt I5 I I*5 Q ^2 T 2^ LY . a S CUR IF THE S UR CE TAPE HAD A NON-Z E RQ PRN. 
SI BY RAY BARTHO, NATAL U. PATCH 54fi, MARCH 29, 1976 

IF T3,Cl5lt5]*0 THEN X DONT USE NONEXISTENT FIB 37027500 
SI********************** ************************************************ 

$# PAT ^ o ?52,I? R T TSSkcP » XVI « CONTAINS 5 CARDS. AUTO "OU" FOR "NO SORT MEM" 

STREAM(Pl«Ix,T*R5xR6#A*USPACE(7J)i 18790600 

BEGIN DS*LIT ","J Sl*LOC PlMlX; XSPOUT ".", NOT "#», XGRK-549 18790700 
REPLYCP1MIXMCFJ * |j 18791200 

* VOIDT 18791701 llllllll 

*l THIS PATCH PROVIDES AN AUTOMATICALLY ASSUMED RESPONSE OF "QU" TO THE 

St "NO SORT MEM" MESSAGE. IN ADOITIQN, THE PREFIX OF THE MESSAGE 

SI HAS BEEN ALTERED TO "♦" FROM "#", TO IDENTIFY THIS MESSAGE AS 

S« "INFORMATION ONLY" INSTEAD OF A "REQUEST FOR OPERATOR INTERVENTION". 

$1 G.R.KENNEDY 12FEB75, BROCK U. PATCH 549 

SI MODIFIED BY OR, UCSC, TO DELETE FROM THE SOURCE* THE CODE THAT NEVER 

SI CAN BE EXECUTED AS A RESULT OF BROCK U, PATCH 549, JAN, 17, 1977 

SI SEE ALSO UCSC DCMCP PATCH 7t3* NATAL U, PATCH 713* DREXlL U, PATCH 751 

Sl*****************************************************^*^^^^^^^^ 

l*i t^au ry?rpS?, T ?!!^^i*r CONT ;i NS 3 CA «0 S « RESTART LOG AFTER INTERRUPT 
SI IF AN EXTERNAL INTERRUPT E.G. lOBUSY, IOCOMPLETE, PR iNTERF IN ISH, 
SI TIMER OCCURS SIMULTANEOUSLY WITH A PROCESSOR DEPENDENT INTERRUPT E.G. 
St COMMUNICATE, THEN THE EXTERNAL INTERRUPT WILL BE HANDLED FIRST AND 
SI THE LOGGING STOPPED FOR THE JOB, IF THERE ARE NO INDEPENDENT 
5! f^SE? S AITING TC 8E STARTED AND THERE IS NOTHInG In THE BED, THE 
St LOGGING WILL NOT BE RESTARTED FOR THE JOB WHEN ITS INTERRUPT IS 
SI HANDLED. THIS WaS DISCOVERED WHEN USING THE TIMEC2) FUNCTION. 
SI BY RAY BARTHO' NATAL U. PATCH 550, APRIL 2l# 1976 
S SET OMIT • NST(NEWLOGGING) 48100499 

S PHP DM ?I ARTL0GtP ^I X ^ 48100300 

* POP OMIT 48100501 

S# PATCH 560 FQft TSSMCp CONTAINS 4 CARDS, SMALLER PBD RnW SIZES 

SI BROCK U. PATCH 560, NATAL U. PATCH 732 

DEFINE PAGESIZE * 4iC#; X PACKET PAGE PBD SIZE 02U30Q1 

150# X SEGMENTS PER ROW 08699150 

050# X PHYSICAL RECORDS PER ROW 08699358 

1000#X PHYSICAL RECORDS PER FILE 08699500 

$ I ************* ************************************************* ** #< m* # 

If !! ATCH ^ 0i F0R TS 3MCP CONTAINS 2 CAROS. FIX PBD NO DISK DS 00000100 

* S 22 C f l I B .S l -2? X 2 Q ACTI0N F0R PB0/PU ° FIUS lN BACKCLOSI AFTER SSooSlSS 

S A NO USER DISK 061 FILE WOULD GET STUCK IN USE, 00000300 

SI DREXEL U. PATCH 101 8/10/75 00000400 

SI MODIFIED FOR TSSMCP BY OR, UCSC FEB, 4, 1977 00000500 

t! SE noJtr? ? FFl »i AU PATCH 155 T0 DCMCP 0R 1*8 T0 TSSMCP, AND 00000600 

SI DREXEL U, PATCH 662 00000700 

$ i ****************** ************** ******************************** # **^* # 

S# PATCH 602 FOR TSSMCP CONTAINS 4 CARDS, BAD INCW 

t! ISiL P !l C t!u! 1 !: L / S0 " A J0B THAT GETS INTERRUPTED AND "ANALYSIS" 
SI SEEMS TO THINK ITS INCW IS IN LOW CORE, LIKE M[0], 

St ITS HAPPENED A FEW TIMES, KILLING MEMORY CELL ZERO, 

SI DREXEL U. PATCH 602 10/5/75 

!! m22£ fi IS £2 r I! SMCP * T0 N0T I FY US lF TH is condition ever arises AT 

SI UCSC, BY OR UCSC FEB, 14, 1977 

IF INCW,CCF3<?1777 THeN X SOMETHING VERY WRONG 14015200 



i 

i 



BEGIN JAR 

Fa 

end; 

$»****************** 

SfPATCH NUMBER 603 F 
FORM 

IRANDQM* 
SWITCH 0*LFORM 
LRAN00M, 

lno*ldisk 

TPN0*12; GO T 
BEGIN TPN0*2i; 
TPN0*22J 

if scanxb 
end; 

if type*copyn 
begin tpng*4; 

TPN0*15; 
IF SCAN*6 

end; 

if type«copyn 
urandomj tpn0*1@; 

"FORM », 
"RANDOM ", 



[PlMlX#63 t Ci»U*li * SD BIT 
EMESSC W SEE TSS">" PATCH ">C 

**************************** 

OR TSSMCP CONTAINS 19 CARDS 

s 77##X SWITCH D(PCC)"FORM" 



14015210 
*0»0#C#602)XKLUGE MSG40S14Q1522Q 

14015240 

************************ 



. FIX COPY 
-"SPECIAL" 



*LTAPE#lPUNCH,LPP,INT#l.PAPER» 

o dskcheck; x "oisk" means disk serial 
if ty*e*copyn then begin 
go lcqpy end else 
ack then go error; 

then begin tpnq*22; go lcopy eno else 
if type»copyn then begin 
go to lcopy end else 
ack then go error; 

then begin tpnq*u; go tcopy end else 
go to dskcheck; 

77t X SWITCH D(PCC) 

78 » 



11011072 
20240000 
20392890 
20394000 
20394090 
20394900 
20457000 
20461300 
20461319 
20461320 
20461330 
20461810 
20470000 
20470100 
20470110 
20470120 
20475100 
20481900 
41485608 
41485610 



THIS 
ALSO 
MODI 
IT A 
MODI 
MODI 
FROM 
THIS 
***** 

PATC 
THIS 
DREX 

***** 
PATC 
THIS 
IN A 
MODI 
BY T 
DREX 



t ***** 
# PATC 



PATCH C 

SPECIFY 

FIED 12/ 

SERIAL 

FIED 12/ 

FIED 12/ 

DREKEL 

PATCH I 

******** 

H 604 FO 

PATCH C 

EL U. PA 

I 
******** 

H 639 FO 

PATCH C 

DECK (U 

FIED 8/1 

HE ABOVE 

EL U, PA 

I 

******** 
H 643 FO 
IF (NT 
DISKWA 
IF (AA 
NTUJA 
IF (NT 
IF (NT 
I«-NT3 + 
IF (J* 



ORRtC 

ING B 

2/73 

FILEi 

21/75 

21/75 

UNIVE 

S AFF 

***** 

R TSS 
ORREC 
TCH 6 

F (R» 
***** 

R TSS 
ORREC 
SUALL 
8/74 

PATC 
TCH 6 
F (At 

***** 
R TSS 
l*JAR 
ITCT 
♦ BC93 
RCP1M 
3*NT2 
3«"JAR 
NT2 M 
BCS M 



TS THE INABILITY TO 

ACK UP DISK ON THE 

* SPECIFYING "DISK" 

EXt • ALGOL FILE 

* SPECIFY "RANDOM" 

TO MAKE OTHER PATC 

RSITY - JHH • 5/21/ 

ECTED BY PATCH 724 



SPECIFY COPIES WITHOUT 

FlUE CARD» 

ON A FILE CARD NOW MAKES 
TAPE»A/B DISK 

TO GET RANDOM DlSKt 

HES FIT BETTER. 
76 



************************************************** 



t DISK ADDRESS ERROR 
DISK ADDRESS ERROR AT 



H/L. 



MCP CONTAINS 1 CARD 

TS FOR AN UNDETECTE 

04 3/20/76 

-RL) GEO RADD THEN RLEN !■ ELSE 

************************************************** 

S, EOF PSEUDQ-RDRS 

PSEUDO-RORS WHERE THE LAST CARD 
ULD NOT GET LISTED IN THE PACKE 
OUS READ ON DISK SEG ZERO CAUSE 



MCP CONTAINS 2 CARD 
TS AN EARLY EOF ON 
Y AN "END" CARD) WO 
TO AVOID A SUPERFLU 
H, 

39* ORIGINALLY 8/8/ 

■M»*P(Dt!JP)*l) > (H 

IF I> 

******************* 

MCP CONTAINS 12 C 
CP1MIX»101)pO THEN 

>30#nti); 
,cff))*0 or s>bc13 

IX>83; NT2*AA+S div 
DIV NT1 ♦ 10) > 29 
EP1MIX#NT3])*0 THEN 
OD NTU DISKWAIT("T 
OD 303) < THEN GO 



73 

C7J+1) THEN 

THEN X NEXT 



BUFF EXISTS 



******************************* 
ARDS, FIX PLACEFINDER 
GO SANDA; X NO LINE DICT 



OR A>1023 THEN 

3o; 

THEN GO TQ SANDA; 
GO TO sanda; 

#3o»n; 
to sanda; 



** 

00000100 

00000200 
00000300 
40060060 

** 

oooooioo 

00000200 
Tt 00000300 
D 00000400 
00000500 
00000600 
07397000 

07401900 
**99999999 

04709900 
04710000 
04711000 
04722000 
04723000 
04724000 
04725000 
04726000 



$ VQIDT 



AA«-J,£CF]; IF J.CFF3 » THEN J.CFFJ*!* 



THI 
IN 
MOD 
SEA 
MOD 
AND 
ALS 
ORE 
MOD 
SEE 
SEE 
**** 



S PATC 
MCP PR 
IFIED 
RCH BO 
IFIED 
THE A 

0* ELI 
XEL Ut 
IFIED 
ALSO 
ALSO 
****** 



IF WXC 
DIV ( 

H C8RREC 

OCEOURE 

11/25/73 

TTOMS OU 
3/10/74 
DDRESS I 
MINATE u 
PATCH 6 
FOR TSSM 
UCSC PAT 
DREXEL U 



******** 



W*S DIV 30}TH 
NT2*JAR[P1MIX 

TS A PROBLEM 
PLACEFINDER, 

- STOP POSSI 
T. 

- CHECK THAT 
S LEO 1023, 
SELESS READ 
43 

CP BY OR' UCS 
CH 515 

. PATCHES 209 
************* 



EN DlSKWAIT(»T*30*(JAR[PlMlX*(NTl*AA 
*8J)*1Q]*NT1 MOO NT2) DIV t )* 
OF INCORRECT DISK ADDRESSES 

BLE CONTROL-STATE LOOP IF BINARY 



04727000 

04730000 

♦W)04731000 

04731100 



THE SEGMENT EXISTS IN 
IF NOT* JUST GIVE SEG 
N DISK SEG ZERO IF NO 

C JAN. 18* 1977 



THE PROGRAM* 
AND ADOR, 
LINE DICT. 



44 9/23/73 

CP BY BR* UCSC FEB. 10 
♦P(RTR)) DIV 60).C3i«17] 

t * t ♦ ^ooooq; 

************************ 

MCP CONTAINS 1 CARO. FI 
RIZES THE arguments TO 
RE INTERPRETED CORRECTLY 
(NORMALIZED) NUMBER IS P 

45 lf/2/73 

core; sizei»size; diskm 
************************ 



1977 



* 785* 789* AND BROCK U. PATCH 528 
************************************ 

S# PATCH 644 FOR TSSMCP CONTAINS 2 CAR05. <MIX>TI 
SI FIX BUG 

St DREXEL U« PATCH 6 

Si MODIFIED FOR TSSM 

T ♦ ((CLOCK 

IF T<0 THEN 

****************** 

S# PATCH 645 FOR TSS 

Si THIS PATCH INTEGE 

$1 THAT THE VALUES A 

$! HAPPEN IF A REAL 

$» DREXEL U, PATCH 6 

COREl« 
****************** 
$* PATCH 647 FOR TSS 
SI THIS PATCH PREVEN 
SI GROUP MARK (♦). 
$1 A "*" 1$ PLACED I 
SI DREXEL U. PATCH 6 

STREAM 

D 
****************** 

S# PATCH 654 FOR TSS 
S 

s 

$ 
s 
s 
s 
s 
s 
s 



*** 



2 CARDS. 
WITH D*TA PA 
ALLY INCLUDE 
HARACTER OF 



************************* 

X DISKIO 

ISKIO TO INSURE 

. BAD THINGS MIGHT 

ASSED TO DISKIO. 

DISKi X INTEGERIZE 

************************* 

♦ FOR SPOUT 

SSEO TO SPOUT WITHOUT A 

A BOMBED MEMORY LINK. 
THE MESSAGE. 



08533000 
08533150 

*** 

00000100 
00000200 
00000300 
00000400 

00000500 

06004100 
***99999999 



MCP CONTAINS 

TS PROBLEMS 

SYMPTOMS USU 

N THE LAST C 

47 2/2/^4 

(X*((M[MESSAGE-13.tCF3-l) & 7 CCTFJ))J 

S * LIT "♦»; 

************ 



THIS PATCH VOIDS 
IF LDCNTRL WAS ST 
THE SYSTEM WOULD 
WHEN LOCNTRL ENDE 
WOULD NOT BE COUN 
(OR UNTIL H/L WNI 
7/3/74 CORRECTS 
GOES NOT REAOY AF 
DREXEL U. PATCH $ 



S VQIDT 
$ VQIDT 



07071912 
07072902 



MCP CONTAINS 
SOME C8DE FR 
ARTED FROM A 
LOSE WHICH P 
D THE ACTIVI 
TED DOWN THU 
CH EVER COME 
A PROBLEM Wl 
TER READING 
54 

IF FIRST 
GO 



i************ 

4 CARDS. F 
OM C0M23 

PSEUDO DECK 
SEUDO-RDR TH 
TY COUNT FOR 
S LEAVING TH 
S FIRST) 
TH LOCNTRL E 
A CONTINUE C 



AND 
EXIT 



CDONLY 
ELSE 



************************* 

IX LOCNTRL 
2/25/74 

AND OS QN A NO FILE 
E JOB HAD STARTED FROM 

THE PSEUOO-RDR 
E DECK STUCK FOREVER 

NDING IF THE CARO REAOER 
ARO 

AND NOT CONTINUE THEN 



St****************** 
S# PATCH 675 FOR TSS 
SI THIS PATCH FIXES 
SI THE COOE WAS ALL 
SI NOW THE UNITS (PR 



************************************************* 

MCP CONTAINS 5 CARDS, PRNPBT ES-EO 

THE WAY TERMINATE HANDLES AN ES-ED PRNPBT/DISK. 

WRONG SINCE XV, 2 REWROTE PRNPBT, 

INTER* PUNCH* TAPE) SHOULD BE CLEARED PROPERLY, 



02142100 
02142110 

*** 

oooooioo 

00000200 
00000300 
00000400 
00000500 
00000600 
00000700 
00000800 
00000900 

ooooiooo 

07059110 
07059H2 
07071899 
07072899 
***99999999 



SI DREXEU U. PATCH 675 6/15/74 

Si SEE OREXEL U. PATCHES 790* 826 

BEGIN 02261250 

IF (LUN*L.C41I53><16 THEN SLAPITQFF; 02261300 

lUN*L,C«6l2m9; % IPA» LPB* OR CPA 0226135© 

SUPITQFF) 02261400 

$ VQioT 02261701 02261450 

$l********************************************************************** 

$# PATCH 688 FOR TSSMCP CONTAINS 2 CARDS, FALSE CONTROLCARD ERRORS 

CCCOMPILE*©; % INITIALIZE 20584390 

CCUNIT*0; % INITIALIZE 20590030 

Si THIS PATCH WILL CORRECT A PROBLEM WITH INCORRECT CONTROL CARD ERRORS 
St DREXEL U. PATCH 688 4/27/75 

$l MODIFIED FOR TSSMCP BY OR* UCSC FEB. 7t 1977 

SI ******************************** *********** *************** ************ 
S# PATCH 697 FOR TSSMCP CONTAINS 2 CARDS. 10 ERR STATUS 

Si THIS PATCH CORRECTS A PROBLEM WHERE STATUS COULD GET AN UNEXP 10 ERR 
SI WHILE PLAYING WITH A TAPE DRIVE. IT SHOULD RECOVER OK NOW, 
SI OREXEL U. PATCH 697 1/35/76 

DO UNTIL (Tl*WAlTIO(AREA INX *>340000012#?75#U ) )*QJ 22U2000 
IF Tl,C43l2]*0 THEN TUWAI TIO( M200000000,5*U> J 22112100 
$1********************************************************************** 
S#PATCH NUMBER 708 FOR TSSMCP. XX II CONTAINS 3 CARDS PRINT PRN WITH PG 

IF TEST THEN BEGIN STREAM CB*T#8UFF )i 08051000 

BEGIN DS*10 LIT"PG»ED(PRN»"J SI*LQC Bi DS*5 DEC* DS*2 111")*"* 08051004 

END; END X PRINT PRN WITH PLAIN PGMT 08051005 

$1 FROM DREXEL U. 

Si SEE ALSO BROCK U. PATCH 543 FOR TSSMCP* PATCH 708 REflUIRES LESS CODE 
$1********************************************************************** 
S# PATCH 715 FOR TSSMCP. XV. 3 CONTAINS 1 CARD. MT JQ "ERRORS" TO "RETRIES" 
Si CHANGE "ERRORS" TO "RETRIES" IN MAG TAPE IQ MESSAGE* BECAUSE USERS 
SI GET WORRIED BY 10 ERRORS. (AS THEY RIGHTFULLY SHOULD. OR'UCSC) 




100] 

MODIFIED FOR MARK XV,3 BY RAY BARTHO 
MONASH PATCH 556* NATAL U. PATCH 7l7 

LABEL FOUND#FIREITUP#QUlT; 08255800 

ENO ELSE * OSO* PB MT 08259800 

8EGIN RRRMECH*TWO(U*ABSCQ)) OR RRRMECHJ 08259810 

LABELTABLECU3 *■ 08259820 

PBT4TINUCVH6I30I1834P2U1U3I53J 08259830 

MULTITABLECVJ «• PBTJ 08259840 

LABELTABLItV] * PBTtT INUCU 3C6 I 30 1 18 H 08259856 

921(114315]; 08259660 

GO FIREITUPJ 08259870 

END 08259888 

S VOIDT 08266501 08260899 

S VOIDT 38639101 38639000 

IF J THEN SETN0TINUSE(U#0) ELSE LABELTA8LE [U 3 . C 1 I5]*i; 38640000 

$1********************************************************************** 

S#PATCH NUMBER 724 FOR TSSMCP CONTAINS 13 CARDS, FULL PAGE 

IF RDCTAiLEtUl OR MuLTIT ABLEEU3*"FULLPGE" 04391550 
THEN IF I0QUECS3.C28I13 THEN IOQUE t S3 , CFF 3+040013 *DBL*CH 11 04391560 



ELSE IOQUECS], [FF3*P40012 % DBL SINGLE - SKIP TO CH 10 04391570 

ELSE X SNIP TO CHAN 1 ON EOP IF NOT 66 LINES 04391580 

RDCTABLE[VJ,U7il3*INRECtO]a«FULLPGE"; X LINES66 OPTION 12860100 

FBRM * 76** % SWITCH DCPCC ) M FORM w " w SPEClAL M 20240000 

LINES66 m lit, % 66 LINES PER PAGE 20240020 

LLINES66* % 20392880 

LLINES66* 20394080 

LLINES66I X 2046505© 

EQNCOJ *■ "FULLPGE" ; XSET UP MFID FOR FULL PAGE 20465100 

"FORM "* 76 * 41485600 

W LINES66"# 77 * 41485620 

REV 12/9/72 MARK XIV 

THIS PATCH WILL CAUSE THE CHANNEL 12 PUNCH ON THE VERTICAL 

FORMAT TAPE TO BE OVERLOOKED 

THE PRINTER IS CLEAREO BY DOING A SKIP OF A SINGLE OR DOUBLE 

SPACE OR IS NOT CLEARED AT ALL DEPENDING ON THE ORIGINAL 
CONTROL INFORMATION 

THIS WAS TESTED 8N MOD III IQS WITH B9242-4 PRINTERS 
THE DOCUMENTATION SAYS THIS SHOULO NOT WORK I#Et 

YOU ARE SUPPOSED TO CLEAR THE PRINTER WITH A SKIP TO CHANNEL 
THIS MIGHT BE THE CASE WITH DIFFERENT PRINTERS AND/OR IOS 

THIS VERSION WILL WRK ON ANY CARRIAGE TAPE ELIMINATING THE NEED 
FOR SPECIAL PUNCHES ON CHANNELS 10 C 11 

MODIFIED JULY 1973 * MARK XV. 1 
MODIFIED 02/10/74 • MARK XV, 2 

MODIFIED 12/21/75 TO MAKE OTHER PATCHES WORK BETTER 
FROM DREXEL UNIVERSITY • JHH - 5/21/76 

NONE OF THE ABOVE STU^f IS TRUE ANYMORE - IT WONT WORK WITH B-321S 
THE PROBLEM IS THAT WHEN THE B-321 HITS CHANNEL 12 PUNCH IT KEEPS 
THE END OF PAGE STATUS BIT ON UNTIL A SKIP TO SOMETHING IS GIVEN 
THIS PUTS MCP INTO A TIGHT LOOP* SO' WE GO BACK TO USING A 
SPECIAL FORMAT TAPE WHICH HAS CHANNEL 11 PUNCHED A OQUBLE SPACE 
AFTER CHANNEL 12, AND CHANNEL 10 PUNCHED A SINGLE SPACE AFTER 
THIS PATCH AFFECTS PATCH 603 
********************************************************************** 

# PATCH NUMBER 725 FOR TSSMCP.XIII CONTAINS 5 CARDS DQNT ALLOW PRN»0 

DI*DI-»8J DS«-LIT "♦"** 08029046 

IF NOT T.CU13 THEN IF T»0 THEN 08033980 

IF T,C1»U*0 AND T»0 THEN BEGIN 08033992 

STREAM(BUFF); DS*17 LIT "NOT PG-EO(PRN*Q )♦"* 08033993 

LABELTABLECU3* *H> GO EXIT END; T*ABS(T)I 08033994 

I 

I THIS PATCH WILL PROHIBIT THE OPERATOR FRQM PURGING A TAPE THAT 
« HAS A PHYSICAL REEL NUMBER OF ZERO WITH THE PG MESSAGE UNLESS 
I HE ENTERS A NUMBER* SUCH AS "PGMTB-122", HE MAY ENTER "PGMTC-O" 
I IF FOR SOME REASON A PRN IS NOT APPLICABLE 

I FROM OREXEL U. 
I********************************************************************** 

# PATCH 745 FOR TS3MCP CONTAINS 3 CARDS, pBT REEL NUMBERING 

I THIS CORRECTS THE PROBLEM WHERE A JOB USING PBT USED MORE THAN ONE 

l REEL BEFORE ENDING, A SUBSEQUENT JOB REQUIRING PBT CONTINUED ON THE 

I FINAL REEL OF THE ABOVE JOB, BUT WHEN A REEL CHANGE OCCURRED* THE 

I VALUE OF REEL FOR THE CURRENT JOB WAS PUT IN THE LABEL OF THE NEW 

« REEL. THIS MEANT THAT WHEN PRINTING* THE REEL NUMBERS IN THE LABELS 

I WERE NOT CONSECUTIVE THUS INTERFERING WITH AUTOMATIC REEL SWITCHING. 



Si the reel number of the first tape is now placed in the rdctable, and 

$! ASSIGNED TO NEW JOBS USInG THE SAME PBT FROM THE RDCTABLEt THIS 

SI CONFLICTS WITH THE DOCUMENTATION IN THAT THE DEFAULT REEL NUMBER FOR 

Si PBT W S NEED NOT NECESSARILY BE ZERO, 

$« NATAL U, PATCH 745 

$t MODIFIED FOR TSSMCP BY DR# UCSC JAN, 17# 1977 

RDCT ABLE £U 3«.P(DUP*LQD >*REELC H I 38 1 10] 37046177 

&CDATEC24J31 I 173&CYCLEC 41*4117]; 37046178 
REEL*RDCTABLEtU3,Cl4Jl03; * GET ACTUAL REEL NUMBER 38247100 

$1********************************************************************** 

s# Patch 749 for tssmcp contains i card, memory parity err causes "sd h 

$« this patch will cause the mcp to hold ON TO A pseudo-deck of a job 

$i which has been ds-ed due to a memory parity, after all* that wasn-t 

si his fault, 

si modified 6/19/74 - sd bit set in terminalmessaga instead of 

si in outer block, 

$1 orexel u. patch 749 (brock u. patch 749 is the unmodified version) 

if n*32 then jar[p 1mix*63 , c ii 1 ] «-u x mem par 02206100 

$!*****•************************<»*************************************** 
%» PATCH 753 FOR TSSMCP, XV. 3 CONTAINS 2 CARDS, TIME(-6) TO GET MIX INDEX 
$» THIS ADDS A NEW TIME FUNCTION. TIMEC-6) WILL RETURN THE MJX INDEX OF 
SI THE CALLING PROGRAM AS AN INTEGER. 
SI NATAL U. PATCH 753 

WDI I4*WEEKDAY; GO TO INITIATE; 18711500 

IF 14 « (-6) THEN I4*P1MIX; 187(1690 

ss********************************************************************** 

i* PATCH 757 FOR TSSMCP, XVI, CONTAINS 12 CARDS, REMOVE UNLOAD FILES AT END 
Sj THIS PATCH CAUSES THE FILES SPECIFIED TO BE UNLOADED TO BE REMOVED 

SI ONLY AFTER THEY HAVE ALL BEEN DUMPED. ALSO IF A DISK PARITY OCCURS 
SI WHILE DUMPING THEN THAT FILE WILL NOT BE REMOVED. 
SI NATAL U, PATCH 757 

M[FAINFO+J],C8ll3l«»0; X QONT REMOVE IF UNLOAD 28093900 

PCM[FA4-U#M[FAJ); X SAVE NAME FOR UNLOAD 28094500 

NTll'P; MCFA]l«NTi; MCFA+ 1 3 l*P( XCH ); X REPLACE NAMES 28097100 

S VQIDT 28265801 28265600 

TMPt=FA5Z DIV 2 * i; 28307700 

FOR J 1*0 STEP 1 UNTIL TMP 00 28307705 

IF (DAI«MCFAI8F0+J3),CCF3«18 THEN X FROM OlSK 28307710 

IF UNLOAD TH£N 28307715 

BEGIN MFIDI*MCFA + Jx2]; FID I "M[FA*1* Jx2 3 J 28307720 

PCDlRECTORYSEARCHc-MFIDAlt 31471 13#FID#7)#DEL); 28 30772 5 

IF DSED TH|N GO TO INITIATE; 28307730 

END; 28307735 

$l****************#******#****************#****#***#*#***#***t**##****** 

S* PATCH 764 FOR TSSMCP CONTAINS 3 CARDS. TAPES IN USE AFTER FM OR IL 00000100 

Si THIS PATCH PREVENTS TAPE UNITS FROM BEING MARKED AS IN USE. THIS 00000200 

SI OCCURS AFTER AN "IL* TO A TAPE UNIT IN RESPONSE TO A "#NQ FIL ON 00000300 

SI OlSK" OR AN "FM" TO A TAPE UNIT CONTAINING A TAPE WITH NO WRITE RING 00000400 

SI IN RESPONSE TO A "#FM ROD". THE TAPE WILL REMAIN IN USE UNTIL A H/L 00000500 

SI OR THE UNIT IS CLEARED BY A "CL". 00000600 

SI HERIOT-WATT U. PATCH 764 00000700 
SI MODIFIED FOR TSSMCP BY DR# UCSC FEB, 3# 1977 

END ELSE LABELTABLEtT23l« ,, (*PCDUP)); 06463740 

IF PRNTABLECU3.C1U3 THEN ELSE 37053300 

BEGIN LABEITABLECU3I»-C*P(DUP));G0 TO SOMEWHERE;END; 37053400 
$i****************************#************#**#*******#***#************* 

S# PATCH 791 FOR TSSMCP CONTAINS 4 CARDS, TYPE PBCQUNT AT HALT-LOAD 



St PATCH TO TELL THE OPERATOR HOW MANY BACK-UP FILES THERE ARE ON DISK* OOOCO2C0 

SI REGARDLESS OF THE SETTING OF "AUTQPRNT" . 00000300 

SI THE FIRST & THIRD CARDS REMOVE THE DECLARATION FOR THE UNUSED LOCAL "L" 

S| AND VOIDS SOME UNUSED CODE REFERENCING M L" TO SPOUT THE "PBCQUNT* MESSAGE, 

$l BY NILS QTTE* UNIVERSITY OF NATAL. SEPT,* 1976 00000600 

SI HERIOT-WATT U. PATCH 791 00000700 
SI MODIFIED FOR TSSMCP BY BR* UCSC FEB. 8* 1977 

REAL NEXTLINK* AD* X* K* SEVEN7* FORTY* EUSU* 40004500 

IF PBCOUNT > THEN * TELL OPERATOR 40320100 

end; spoutcx); 403206OQ 

$ VOIDT 4033800© 

$l*********************#****#***#********#*#**********##**************** 

S# PATCH 801 FOR TSSMCP CONTAINS 39 CAROS. MULTI KEYIN MESSAGES 

REAL BUFF* KTR* TYPE* MIX* A* I* J* K* T* 16951600 

LABEL RESTART; 16951950 

RESTART! 16954450 

TYPE ♦ KEYINSCAN(KTR*MIX); 16954502 

IF CPR0CED*TYPE.[ll5])«l AND C C I*TYPE , CCF ] )*8 OR I»VCC 16954504 

OR 1*33 OR I»34) OR CPROcED»0 AND I»l> THEN ELSE X SS* CC*OC* FE* AX 16954506 

BEGIN 16954508 

STREAM(KTR*II); 16954510 

BEGIN SI«-KTR; 16954512 

8(*0(IF SC»" WM THEN 16954514 

BEGIN L* SI*SI*i; 16954516 

63(SI*SlM* IF SC*""" THEN JUMP OUT; 16954518 

IF SC« W *" THEN JUMP OUT 3 TO Y£CH); 16954520 

SI«.Sl + i; 16954522 

IF SC* WMM THEN GO TO L; 16954524 

END; 16954526 

IF SC* M * H THEN JUMP OUT 2 TO YECH; 16954528 

IF SC»";" THEN 16954530 

BEGIN 16954532 

I*Si; TALLY^i; 16954534 

DI*I; DS*LIT "* n ; 16954536 

xi ai»si*i; if sc«";" then gd to x; i*si; 16954538 

JUMP OUT 2 TO YECH; 16954540 

END; SI*SI+1)>; 16954542 

YECH! KTR*TALLY; 16954544 

END STREAM; 16954546 

I*p; IF P THEN 16954548 

STREAMCI* T*T*GETSPACE(62*0,0)+3); 16954550 

BEGIN 16954558 

Sl«-i; 16954554 

8(60(IF SC«"* M THIN JUMP OUT 2 TO L ELSE DS*CHR)); L «DS*LI T"*"; 16954556 

END STREAM; 16954558 

END CHECK FOR KEYlN RECYCLE; 16954560 

IF PRQCE0*7 THEN GO TO TBLERR; 1695460G 

IF T>0 THEN % ANOTHER MESSAGE 16969710 

BEGIN 16969720 

BUFF«-T; T*0; 16969730 

GO RESTART; 16969740 

END; 16969756 

S! OREXEL U, PATCH 8C1 9/23/73 

SI THIS PATCH WILL ALLOW MORE THAN ONE COMMAND IN EACH KEYBOARD MESSAGE 
SI SEPARATED BY SEMICOLONS* AS SUCHl 

si mx;ts;bl;cc remove a/b 

Si NOTE! NO KEYIN COMMANDS MAY BE CONTINUED AFTER A CONTROL CARD IS 



FOUND. 

MODIFIED 11/10/73 - CHAINED MESSAGES IGNORED FOR FE* QC* AX. 

MODIFIED 9/8/74 

THIS PATCH INHIBITS THE RUNNING OF KEYIN PROCEDURE "KEYIN2" IF THE BED 
IS GETTING FULL. 

IF THE OPERATOR (OR A REMOTE USER) KEYS IN A MESSAGE CAUSING 
INDEPENDENT RUNNER KEYIN2 TO RUN* AND THE BED IS WITHIN 4 ENTRIES OF 
FULL* A W WAIT... (KEYIN MESSAGE)" WILL BE SPOUTED, (NOT NEEDED IN TSSMCP) 
MODIFIED 10/5/75 - FIX PROBLEM WHERE IF INPUT MESSAGE IS LONGER THAN 
480 CHARACTERS* A ♦ WOULD BE PUT IN THE FIRST CHARACTER OF THE 
NEXT MEMORY |JNK, LEADING TO GRAVE PROBLEMS. 
ALSO* SUCCESSIVE SEMICOLONS ARE IGNORED. 
MODIFIED FOR TSSMCP BY OR* UCSC FEB. 7* 1977 
********************************************************************** 
PATCH 815 FOR TSSMCP CONTAINS 17 CARDS, CLEAR IN USE FILE 
DREXEL U« PATCH 815 2/10/74 

THIS PATCH WILL ENABLE THE OPERATOR TO CLEAR AN IN-USE FILE BY 
DOING A "Q RESET FILE A/B". IT SHQULD BE USED CAUTIOUSLY SINCE 
DIRE CONSEQUENCES COULD RESULT FROM "CLOSING" A TRULY "IN-USE" 
FILE. IT IS USEFUL FOR THOSE STUCK IN USE PBO FILES AND SUCH, 
MODIFIED 10/27/75 - REPEAT MCP FILE IN USE MESSAGE ABOUT EVERY 2 MIN, 
MODIFIED FOR MARK XVI B¥ OR* UCSC FEB. 11* 1977 
SEE ALSO UCSC PATCH 519 

WHILE NOT TOG DO 18031400 

COMPLEXSLEEPUCLOCK AND Pl7777)»0 OR TOG); 18032000 

SLEEP(tCL0CK3»N0T CLOCK); 18032010 

BOOLEAN FT«N; DEFINE FH(FH1 )«MCT + FHU#; X RESET FILE A/B 20704100 

SUBROUTINE CLEARTHEF ILE; X CLEAR AN IN-USE FILE 20704200 

BEGIN 20704210 

FHC«3,C01»@63*o; % EXCLUSIVE 20704220 

FHC*3 ♦C16t203*0J X OPEN COUNT 2 20704230 

FH[9] t [0l«283*0; X TOGS ft OPEN COUNT 1 20704240 

DISKWAIT(T,CCF]*30*T,CFFJ>; X FIX IT 20704250 

FILEH0LD(CMMt2]»CMMC3J*0,T#0); % WAKE UP WAITING PROCESSES 20704260 

L8MESS(CMMC2],CMMC3]#U*26»0,SP0UTUNIT»1); 207042 70 

END CLEARTHEFILE; 20704280 

IF CNfACCESSD THEN 20714000 

IF NOT (FT«-FXT0G«.(CN*FILEV)) THEN GO TO CCERR; 20714503 

$ VQIDT 20768000 

END ELSE IF FT THEN CLEARTHEFILE ELSE BEGIN 20769000 

$;********************************************************************** 

*#PATCH NUMBER 846 FOR TSSMCP CONTAINS 7 CARDS. DUMMY FILE 

IF IQD.[3»53»30 THEN GO RETURN; % SPO 04105998 

FORM i 75#*X SWITCH OCPCC )"FORM"""SPECl AL" 20240000 

LDUMMY* 20392870 

LDUMMY* 20394070 

LDUMMYI TPNO*li; X " FORM SPO" - DUMMY FILE 20451900 

"FORM "* 75 * X SWITCH D(PCC) 41485600 

"DUMMY "* 76 * 41485630 

t 

I THIS IS THE MCP PORTION OF THE DUMMY FILE PATCH, IT ALSO REQUIRES A 
I PATCH TO THE INTRINSICS. IT PROVIOES THE WORD "DUMMY" AS A UNIT 
I TYPE, OUTPUT TO "DUMMY" WILL CREATE A "SPECIAL FORM SPO FILE"* 
I WHICH THE INTRINSICS WILL IGNORE. 
» FROM DREXEL U. PATCH 846 JHH AT UCSC 

I********************************************************************** 

#PATCH 890 FOR TSSMCP CONTAINS 173 CARDS - DATA029/EBCDIC 



SIAUG 1975 HERIOT-WAT 
SJAND PERFORMS EBCDIC 

StlMPLEMENTS DATA029 
SlWAS PATCHES 900-902 

St 

PROCEDURE EBTABUE; 
BEGIN LABEL Li 

P(o#xit,,l#ded; 

L<* > 

0," 32?","1???% ,, 0TS'? 

«*???"," ????", "????", 

"9???", "???? M , M Z???% 

"????"* "????" *"????", 

"8#l?%"???? ,, f"Y#x?% 

"?? 77 ", «????", " 7 ? 7 ?», 

007770675,005370413** 
47 57 4656,0*1555445 3," 
$1 SO"*"????**"????** 

XQMARKADDRESSES 

H ?7?? H,« ???? H,,. ???? «, 
"????"," ????•♦ * "????"> 

0'0»0#0'0#0#0#0'0#0# 

o»o»o#o»o#o»o; 
end; 

real procedure setupe 
begin real adr; label 

DEFINE STOREADDRESS" 

xi*si; sh*loc x; sn 

DSt«3 CHR; DIl«DUi # 

ebtable; 
p(cmc(aor»'»*pc»ebtabl 
setupebtablei«adr 

IF MCADR^Bl] * C 
STREAM CXI«0»TA8LE|*A 

BEGIN 

di»*table; sii«table 

2(40(SI|3SI*4; DSl«4 

xfirst fill all of 
si«»qmarktableaddress 
x»«si; 

si»*loc x; siipsi+s; 
dislocations; 
dsi«3 chr; 
suslocations; 

DSU63 WDS; 

xn0w set addresses 

sp-tablej 
dislocations; 

3(st0readdress; xst 

XCORRESPONDING TO 

si»»x; 

sii*si+63; sii=si+ij; 

dh«di+8; XLP«3 is 

storeaddress; %lp« 

di*«di*8; *LP"5 is 

siux; 

si»*si+i; xskip i 



t university * local only* 
to bcl conversion 

card 
in mark xvtl. *** nbj sequence numbers changed **' 



"# , V???"*"-LK?% "J???" #"????" *"????% M *CB?%"A???" 

l, ???? w »"R???"»* , 7??7 M » ,, ????' , ' n ????%"l??? ,, ' w ???? B ' 
« 7?77 <*,« 7777 «, "????", 

« 7?7? «, «Q $ ] 7 ", «????», « 7 ? 7 ?«, "????" >"H # [?%"????% 
H 7?77 ff f f« 7777 tf,ft 7777 fl, 

C67146616, 065176473, 

7 ? 7 ?»,«?? 77 «, 027742620,025 3524 36, 

« 7777 "," 7?7 ?", "????», 

"???? M , "????"," ????", "????">"????", "????" »"????"* 
"????'•," ????" >"????", 

0»0*0>0>0,0* X SPACE FOR AODRESSES 



btable; 

EXIT* 

sSi+5; 

; 

E) INX NOT l>n»IOR)J 

«»ADRiCCF]+3; 

THEN 
DR,QMARKTABLEADDRESS|»ADR+32,L0CATI0NSI»A0R*40); 

; sn«si+e; 

chr;)>; 

ADDRESSES WITH ADDRESS OF ?S 

; 



%POINT Si AT AODRESS OF OMARKS 



for valid chars into ebcdic table 



ORE ADORESSES FQR LP«Q»t*2 
BLANK»9 HOLE'S HOLE 

XSKIP 6 WORDS DOWN TABLE 
INVALID 

4 7 HOLE 

INVALID 

CHAR DOWN TABLE 



07003270 
07003280 
07003290 
07003300 
,07003310 
07003311 
07003320 
07003322 
07003330 
07003332 
07003340 
07003342 
07003344 
07003350 
07003352 
07003354 
07003360 
07003370 
07003380 
07003400 
07003410 

07003412 
07003414 

07003416 
07003420 
07003430 

07003440 
07003450 
07003461 

07003464 
07003466 
07003468 
07003482 
07003484 

07003486 
07003488 
07003490 
07003492 
07003494 
07003496 
07003498 
07003500 
07003502 
07003504 
07003506 
07003508 
07003510 
07003512 
07003514 
07003516 
07003518 
07003520 



STOREADDRESS; XlP«6 , , , ,7*8 HOLES TOGETHER O7O03522 

DI»*0I+8; 0700352* 

SIi«x; 07003526 

SII«SI*i; 07003528 

STOREADDRESS; XLP»8...,6 HOLE 07003530 

0I»*DI+8; 07003532 

SI»«x; 07003534 

SI »«SI+i; 07003536 

STOREAODRESS; XLP«10 t . t .6*8 HOLES TOGETHER 07003538 

Dl'»DI+40; XMISS 5 WQROS, ,,LP*lt'12#13#H#l5 07003540 

SllaXJ 07003542 

SII*SI+i; 07003544 

STOREADDRESS; XLPt«l6,,,, 5 HOLE 07003546 

DIIpDI+8! 07003548 

SI««x; 07003550 

SH«SI + i; 07003552 

STOREADDRESS; XLP*18.,.. 5*8 HOLES TOGETHER 07003554 

2<0I|bDI*52); XMISS 13 WORDS, «• ,LP»l9*3t 07003556 

SI««x; 07003558 

SIUSl + i; 07003560 

STOREADDRESS; XLP«32,.,,, 4 HOLE 0700356E 

DI*«DI+8; 07003564 

SI»-x; 07003566 

Sl»*Sl+i; 07003568 

STOREADDRESS; XtP*34 4*8 HOLES TOGETHER 07003570 

END; 07003580 

END; 07003590 
%*#******#***************#***********i(t**#***#*********************#*****07003600 

STREAM PROCEOURE EBCDICCONVERT C lNT0#TA8LE#PQINTERS >; 07003610 

VALUE INTO»TABLE»POINTERS; 07003615 
X*******************4************************************************4**07003620 

BEGIN 07003630 

LOCAL HP»LP*SRCE*D|ST#HPPTR*LPPTR; 07003640 

XPOINT HPPTR & LPPTR TO LAST CHAR OF HP, LP 07003650 

SH*LOC HPi 07003660 

SIUSI + 7J 07003670 

HPPTRI«SU XHIGH PART 07003680 

SIlnLOC LP; 07003690 

SIUSI*7* 07003700 

LPPTRl«Si; XLOW PART 07003710 

shbinto; sh*si+8; 07003720 

0I»»INTO; 07003730 

XSTART CHARACTER TRANSLATE LOOP 07003740 

2(40( 07003750 

DESTlaDU 07003760 

XTRANSFER LOW & HIGH PARTS 07003770 

DI**HPPTR; 07003780 

DS»«1 CHR; 07003790 

OI»«LPPTR; 07003800 

DSI«l CHR; 07003810 

SRCEl«Si; XSTORE SI FOR NEXT PASS THRO LOOP 07003820 

XNOW FINO THE POINTER INTO TABLE APPROPRIATE TO LP 07003830 

SIUPOINTERS; 07003840 

LPCSllsSI+8); 07003860 

SlteSC; XSI NOW POINTS INTO TABLE 9 POINT DEPENDANT ON LP 07003870 

DP*DEST; 07003880 

siusi+hp; xskip si through table hp chars 07003390 



XPOINT TO QMRK 



ds»*chr; 

sh«srce>); 

oi'btable; di»»di+3; 

end converts 

boolean ebcbic; reat ebtableadr; 

if ebcdic then 

BEGIN 

ebcoici«false; 

MC(*P(tEBTABLE) INX NOT l)]»C2tUl«0* 

end; 

STREAM<Xi* w PACKETS w tYl« t «CONTlNU''»ZI« w END t n > 
EB*« W OATA029"#INBUFF); 

inbuff»«si; 

ELSE BEGIN SI J MNBUFF;DI » *LOC Y; 
SII-INBUFFJ 

IF 3 SCaDC THEN TALLYt*7 
ELSE BEGIN 

DIlsLOC EB;Dl**DI + n 

sumnbuff; 
if 6 sc*dc then 



SVOID 

$VOID 07036351 



TALLY»*4J 



END 



END end; 



IF PTYPE * 4 THEN 

begin ptypei*0; ebcdic i "true; 

ebtableadrjssetupebtable; 

end; 

ELSE BEGIN WHlLE<ai»WAlTlOC?40000000+lNBgFF+ 

E8CDICX p «000O000i#FlRSTX4+ 
IF EBCDIC THEN EBCOI CCONvERTC I NBUFF, 

EBTABLEADR#EBTABLEADR*40) ELSE 

STREAM<QMKI*12»BCL»«1-EBCDIC*INBUFF); 
BEGIN 

sh»inbuff; 

bcl cjf so*""" then jump out to li); 

if sc«ph then 

Lll BEGIN SIlsLOC QMKiS I l«S 1*71 

osim chr; 

tallyi»i; 
sh*inbuff; 
2(36(if sc» m >" then 

BEGIN INBUFFl«Sl; 0ll»IN8UFF; 
DStwLIT "■" 

end; 

if sc*"*" then 

BEGIN INBUFFl»Si; DIl'lNBUFF; 
DSI" LIT »"" 
END; SllaSUll)) 

end; 

qmk i«tally; 

end; 

Qtsp or q; 



$ VOIDT 



INBUFF I« GETSPACE <2i#0M> + 2; 
STREAM(CARDLOC); 
BEGIN SUCARDLOC; 



07003900 
07003910 
07003920 
07003950 
07009200 
07031200 
07031300 
07031400 
07031500 
0703160© 
07032000 

07032100 

07034500 

07036220 

07036250 

07036260 

0703627« 

07036280 

07036290 

07036300 

07036310 

07036320 

07036330 

07036390 

07039500 

07039600 

07039700 

07039800 

07059000 

07059010 

07060100 

07060200 

07066100 

07066200 

07066300 

07066350 

07066400 

07066500 

07066550 

07066600 

07066610 

07066620 

07066630 

07066631 

07066640 

07066650 

07066660 

07066665 

07066670 

07066700 

07066800 

07066850 

07066900 

07086000 

07101000 

20374401 

20374402 



2(36(IF SC = M >" THEN 20374403 

BEGIN CARDlOC*Si;DI*CARDlOC>DS«- LIT "■" END; 20374404 
IF SC""*" THEN 20374405 

BEGIN CARDLOC«-Si;DI«-CARDlQCJDS* LIT hw " END; 20374406 
SI«-Sl + i;)) 20374407 

END; 20374408 

(IF KCUNT ■ ,, » ,, THEN EQUAL ELSE % THIS IS AS IN SYMBOL 20360000 
"DATA029", 41 , 41483010 

S# PATCH 891 FOR TSSMCP, XVI. CONTAINS 8 CARDS. CORRECT 890 (DATA029) 
St CORRECTS A MISPUNCH IN PATCH 890 C900) WHERE EBTABLE WAS SET UP WRONGLY 
SI DEREK BRUCE ,, M*Y 1976 .« H.W.U. 
SI 

07003250 
X###f ###**##***#**#* ##############################################* #####0700 3251 

07003252 
"????", •♦????", "????", "????•*,"????"* "????% 07003344 

07003390 
*######### ############################################################ ##0700 3391 

07003392 
INBUFF ♦ GETSPACEC 21*0,1 ) ♦ 2; 07101000 

S#PATCH 892 FOR TSSMCP CONTAINS 2 CARDS, CORRECT 890,891 

e07770675,?«57704 13^0671466 16, §65 17647 3* 0700 3340 

INBUFF ♦ GETSPACE(21,I0BUFFERAREAV,1) ♦ 2; 07101000 
SI THIS PATCH MODIFIES THE DATA029 FEATURE (PATCH 890) SO THAT 
SISINGLE QUOTE COMING IN IS CHANGED 00 06 5 
SI BY JHH, UCSC* 11 AUG 77 

St MODIFIED 19 AUG 77 TO USE AREA TYPING INTRQOUCED IN PATCH 167 

S# PATCH 901 FOR TSSMCP CONTAINS 1 CARD, TERMINAL LQGMN MESSAGE ############### 
$1 CHANGE THIS DATE EACH TIME ANY OTHER PATCHES ARE CHANGED. ♦♦♦♦♦♦♦ LOOK <<<<« 
SI BY TJP* UCSC MQCIFIED BY DR* UCSC 

DS*35LIT««*XUCSC B5700 TSSMCP OF 24 AUG 77, «J 03595560 

$t********************************************************************** 
S# PATCH NUMBER 902 FOR TSSMCP CONTAINS 3 CARDS. AUTORN OPTION 

AUTORN * OPTION, tl7ll]#, 00416640 

>'AUTO% "RNOO", X17X 41434800 

IF AUTORN THEN BEGIN RUNUMBER 1*4; STARTADECK (0 )i END; 44424100 

SI 

SI 3 CARDS DELETE THE RNALL OPTION USED WITH SHAREDISK ONLY AND 
Si REPLACE IT WITH THE NEW AUTORN OPTION WHICH WILL AUTOMATICALLY 
SI START PSEUDO READERS WHEN THE SYSTEM IS STARTED UP 
SI BY JHH MARK XVI, C 

SI SEE ALSO BROCK U, PATCH 571 FOR TSSMCP 

$1********************************************************************** 
$#PATCH NUMBER 903 FOR TSSMCP CONTAINS 2 CARDS 

IF L0*23 THEN BEGIN L0l*27; HIl*28; END ELSE 37195375 

IF L0«27 THEN BEGIN LOl»0; HltslS; END ELSE GO TO DUN; 37195400 
St THIS PERMITS PROC. FINDINPUT TO FlNO UNIT PRA. OBSERVE THAT PRA 
St IS EXPECTED TO H|VE REEL NUMBER I MOUNTED* UNLESS SOME OTHER REEL 
St NUMBER IS DESIGNATED EXPLICITLY, JHH&DR AUG, 24, 1976 
$1********************************************************************** 



$1********************************************************************** 

S# PATCH 905 FOR TSSMCP, XVI. CONTAINS 1 CARD, DELETE UNUSED LABEL DECLARATION 

SI BY DR* UCSC* OCT, 4* 19?6 

LABEL PX; 38660000 

$1******************4*************************************************** 

$# PATCH NUMBER 917 FOR TSSMCP. XVI » 00 CONTAINS 07 CARDS, "PBT ON MTX RW/L CPRN". 
STREAB(MTX*TINUtUNlT3*PRN*PRNTABLEfUNlT3,C30ll8 3,X5l7-GRK 1253001© 

n*.T4.spAr.FMfin; X517«grk 15530020 



BEGIN SI*lOC MTX; SI*SI*5; DS*8L IT"#PBT ON «;X51712530030 

DS«-3CHR; DS*7UIT m RW/L C"J DS«-5DEC; X517 12530040 

0S<-2tIT w J* w ; I*0l-7i 0S*4FILL* X517-GRK 12530050 

END STREAM; X517-GRK 12530060 

SPOUTCT); X517-GRK 12530070 

St 

SI THIS PATCH WILL SPOUT A RW/L MESSAGE WHEN A PBT IS LOCKED BY C0M19 
Si TO MAKE IT EASIER TO DETERMINE LATER WHICH T*PE WAS ACTUALLY 
SI PRINTED. 
SI 

$1 G.R.KENNEDY 21MAR75, BROCK U, PATCH 517 
$1 SEE ALSO UCSC TSSMCP PATCH 940 ■ BROCK U, PATCH 540 

$1********************************************************************** 

$* PATCH NUMBER 950 FOR TSSMCP. XV 1 ,00 CONTAINS 03 CARDS, CLEANUP CANDE STUFF, GRK, 

S SET OMIT XSETUP SHORT/LONG CARRIAGE MESSAGE X550-GRK 05751400 

$ POP OMIT X550-GRK 05754600 

X**X SP0UTIT(T,CHRGK*1); XSHORT/LONG CARRIAGE MSG X550-GRK 05756500 

SI 

$1 THIS PATCH CLEANS UP SOME OF THE CANDE*RELATED MESSAGES A BIT, 

$1 1, DONT BOTHER BUHDlNG/SPQUTlNG THE "SHORT/LONG CARRIAGE" MESSAGE. 

St 

SI G.R.KENNEDY 08MAR76, BROCK U. PATCH 550 

$l********************************************************************** 

S# PATCH 991 FOR TSSMCP CONTAINS 9 CARDS* SCHEDULER CHANGE 

S| THIS PATCH ATTEMPTS TO IMPROVE EFFICIENCY OF TSSMCP BY 

$1 REDUCING UNNECESSARY SWAPPING WITHOUT HURTING TERMINAL JOBS, 

SI 1, THE TIME SLICE IS MADE MUCH LONGER FOR JOBS THAT USE A LOT 

SI OF CORE, 

St 2, BATCH JOBS WHICH USE UP THEIR TIME SLICE ARE SWAPPED OUT 

Si WITH "TlMEND" AS BEFORE, BUT TERMINAL JOBS ARE SWAPPED OUT 

St AT "FORCEND", GlylNG THEM PRECEDENCE OVER THE "TIMEND" JOBS. 

SI 3, BATCN JOBS WHICH ARE FORCED OUT ARE SWAPPED OUT WITH "TImEnD" 

St RATHER THAN AT "FORCEND", 



SI 



NTl*(SLNCMIX]x30 + COUNT t MIX 3*14 - NTl)*B + 208; 21H1540 

IF PRTR0WCMlX],[PSn*3 THEN PRTROW [MIX3 . CPSF 3*0; XUCSC KLUDGE 21212010 

IF NT3*2 THEN STQPM ELSE SWAPC 48030000 

IF L0GLINE.C33t7J*0 THEN 48030010 

IF NOT SCHEDLINECLQGLINE,UQI8JJ THEN 48030015 

FORCESWAP ELSE TIMEND ELSE TIMEND#l)i 48030020 

BEGIN SWAP(IF LOGLINE. [ 33 t 7 3*0 THEN 48038400 

IF NOT SCHEDLlNECL0GLlNE.C40t833 THEN FORCESWAP 48038401 

ELSE TIMEND ELSE TIMEND*!); GO TO RETURN END; 48038410 

St 

$t BY J.H,# UCSC* 7 APR 77} REVISED 16 APR 77 REVISED 28 APR 77 
SI********************************************************************* 
S# PATCH 992 FOR TSSMCP CONTAINS 4 CARDS, LABEL THE HIGH-SPEED PAPER TAPE ROR 
$1 AUTOMATICALLY ASSIGN A LABEL TO THE HIGH-SPEED PAPER TAPE READER PO«T 
SI WHENEVER IT GOES READY 
SI BY DR* UCSC FEB, 1Q* 1977 

S VOIDT 22199000 

PAPERt LABELTABLECU3 * MULT IT ABLE CU 3 * "PRA "; 22201200 

RDCTABLECU3 •• PlOOOOOOOO; X REEL NR, « 1 22201400 

GO TO COMMON; 22201600 

$1********************************************************************** 

s# patch 993 for tssmcp contains 2 cards, auto-ry of schedule lines at h/l 

SI BY DR* UCSC FEB, 10* 1977 



k 



FOR NTK-1 STEP 1 UNTIL LMAX DO 44430000 

IF SCHEOLINECNT13 THEN SCHEDBUSY [NT 1 J ♦ 0; 44430100 
$j********************************************************************** 

S# PATCH 995 FOR TSSMCP CONTAINS 2 CARDS. DUPLICATE FORWARD REFERENCES 00000100 

$1 WHERE THERE ARE 2 OR MORE FORWARD REFERENCES TO THE SAME 00000200 

St PROCEDURE, THIS PATCH DELETES ALL BUT THE 1ST FORWARD REFERENCE. 00000300 

SI BY OR' UCSC FEB. 3, 1977 00000400 

SI LINE 00364000 a LINE 06020500 00000500 

St LINE 00431500 » LINE 03099000 00000600 

S VQIDT 03099000 

S'VOIDT 06020500 

$1********************************************************************** 

S# PATCH NUMBER 996 FqR TSSMCP CONTAINS 1 CARD. AUTO-LOGOUT AT MIDNIGHT. 

DEFINE MIDNIGHT * BEGIN LOGOUT* XCLOcK l«XCLOCK-W ITCHINgHQUR* 02393200 

St 

SI THIS AUTOMATICALLY CHANGES THE LOG FILE AT MIDNIGHT* SO THAT 
StEACH LOG FILE CONTAINS ONLY ONE DAY-S WORTH OF LOGGING* TO 
SI FACILITATE ANALYSIS. 

SI BY JH# UCSC, 01/19/77 

$1*********************************************** ************************ 

S#PATCH NUMBER 998 FOR TSSMCP CONTAINS 2 CARDS, MIXMAX,MAXLM AX 

DEFINE MIXMAXs"lO#; 00004000 

DEFINE MAXLMAX*20 ti % SHUD BE ABT 8 ♦ ACTUAL MaX LINES 00004500 

$t********************************************************************* 

label oooooooooLifiiE 00178O79CC Ex q/r jcommon*i ;f I le s«patches/tssmcp;fi le lIne«line printjend* o /R 



